通过 Visio 中的“偏移”功能选择新生成的形状 VBA

Question

我是VBA的绝对新手。我想在 Visio VBA.

中通过 Offset 函数 select 新生成的形状

Sub Offset_Example()
 Dim sel As Visio.Selection
Set sel = ActiveWindow.Selection
 sel.Offset 0.06
End Sub

Answer 1

经过长时间的尝试和错误，我计算了 Offset 函数前后页面上的形状，然后选择了最后添加的形状索引

Public Sub makeborder()

Dim intCounter As Integer
Dim intShapeCount As Integer
Dim intShapeCount2 As Integer
Dim vsoShapes As Visio.Shapes
Dim vsoShapes2 As Visio.Shapes
Dim vsoSelection As Visio.Selection

Set vsoShapes = ActivePage.Shapes

intShapeCount = vsoShapes.Count

Application.ActiveWindow.Selection.Offset 0.045
Set vsoShapes2 = ActivePage.Shapes
intShapeCount2 = vsoShapes2.Count
ActiveWindow.DeselectAll
Set vsoSelection = ActiveWindow.Selection
For intCounter = intShapeCount + 1 To intShapeCount2
vsoSelection.Select vsoShapes(intCounter), visSelect
Next intCounter

vsoSelection.Union

End Sub

通过 Visio 中的“偏移”功能选择新生成的形状 VBA

Selecting newly generated shapes by `Offset` function in Visio VBA

vba

visio