Depois de muitas tentativas e erros, contei as formas na página antes e depois da função Offset, em seguida, selecionei os últimos índices de forma adicionados no ambiente VBA e, em seguida, Unioneles.
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
Depois de muitas tentativas e erros, contei as formas na página antes e depois da função Offset, em seguida, selecionei os últimos índices de forma adicionados no ambiente VBA e, em seguida,
Unioneles.