Shape.BringForward Method (Visio)
Office 2013
Published: July 16, 2012
Brings the shape or selected shapes forward one position in the z-order.
The following macro shows how to bring a shape forward in the z-order on a page.
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
