Método Selection.BringForward (Visio)
Traz a forma ou as formas selecionadas uma posição para frente na ordem z.
Sintaxe
expression. BringForward
Expressão Uma variável que representa um objeto Selection .
Valor de retorno
Nada
Exemplo
A macro a seguir mostra como trazer para frente uma forma na ordem z em uma página.
Public Sub BringForward_Example()
Dim vsoShape1 As Visio.Shape
Dim vsoShape2 As Visio.Shape
Dim vsoShape3 As Visio.Shape
'Draw three rectangles.
Set vsoShape1 = ActivePage.DrawRectangle(1, 1, 4, 4)
vsoShape1.Text = "1"
Set vsoShape2 = ActivePage.DrawRectangle(2, 2, 5, 5)
vsoShape2.Text = "2"
Set vsoShape3 = ActivePage.DrawRectangle(3, 3, 6, 6)
vsoShape3.Text = "3"
'Bring vsoShape1 forward one position in the z-order.
vsoShape1.BringForward
End Sub
Suporte e comentários
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.