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

我是VBA的新手。我想通过Visio VBA中的

Offset

功能选择新生成的形状

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

---

经过长时间的尝试和错误，我在页面上计算了偏移功能前后的形状，然后选择了上次添加的形状索引

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