BringForward z-order Problem

[srqr]

I need to set the z-order of a shape programatically and was planning
to do so using the BringForward and SendBackward methods of the Shape
object. However I found tha after the first invocation of this method
subsequenct invocations do not change the z-order. For example if you
have three or more shapes on a page select the most backward (lowest
z-order) then run the following code the selected shape will only be
brought forward one place.

Sub Main()

Dim shpShape As Shape
Dim I As Integer

For I = 1 To ActivePage.Shapes.Count
Debug.Print I, ActivePage.Shapes(I).Name,
ActivePage.Shapes(I).Index
Next

Set shpShape = ActiveWindow.Selection(1)

shpShape.BringForward
shpShape.BringForward

Debug.Print ""
For I = 1 To ActivePage.Shapes.Count
Debug.Print I, ActivePage.Shapes(I).Name,
ActivePage.Shapes(I).Index
Next

End Sub

Does anyone know why this is? Is there a workaround? I've tried
applying the command to a selection or using the Application.DoCmd with
the same results.

 

[Chris Roth [MVP]]

Hi srqr,

Your code works for me in Visio 2003. Perhaps a DoEvents call between the
BringForward calls. Also, there are BringToFront and SendToBack calls that
you might want to use.

--
Hope this helps,

Chris Roth
Visio MVP

Free Visio shapes:
http://www.visguy.com/category/shapes
Visio programming info:
http://www.visguy.com/category/programming/
Other Visio resources:
http://www.visguy.com/visio-links/