Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Get shape and output its z order

Sub Shape_Index_Name()     Dim myVar As Shapes     Dim myShape As Shape     Set myVar = Sheets(1).Shapes         For Each myShape In myVar         MsgBox "Index = " & myShape.ZOrderPosition & vbCrLf & "Name = " _             & myShape.Name     Next End Sub