Shape.OrderToFront

Sub OrderToFront()

Member of Shape

The OrderToFront method moves a shape to the front of the stacking order.

The following VBA example creates a page frame rectangle and places it in front of all other shapes on the active layer.

Sub Test()

Dim Frame As Shape

Set Frame = ActiveLayer.CreateRectangle(0, 0, ActivePage.SizeWidth, _

ActivePage.SizeHeight)

Frame.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), _

CreateRGBColor(0, 0, 0)

Frame.OrderToFront

Frame.Locked = True

End Sub