Método Shape.Group (Visio)
Agrupa os objetos selecionados ou converte uma forma em um grupo.
expressão. Grupo
Expressão Uma variável que representa um objeto Shape .
Forma
O exemplo a seguir mostra como agrupar objetos Shape.
Public Sub Group_Example()
Dim vsoShape1 As Visio.Shape
Dim vsoShape2 As Visio.Shape
Dim vsoGroupShape As Visio.Shape
Dim vsoSelection As Visio.Selection
'Draw two rectangles.
Set vsoShape1 = ActivePage.DrawRectangle(1, 2, 2, 1)
Set vsoShape2 = ActivePage.DrawRectangle(1, 4, 2, 3)
'Deselect all shapes, and then select the two rectangles.
Set vsoSelection = ActiveWindow.Selection
vsoSelection.Select vsoShape1, visDeselectAll + visSelect
vsoSelection.Select vsoShape2, visSelect
'Group the rectangles into a group shape.
Set vsoGroupShape = vsoSelection.Group
End Sub
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.