Here is a quick example of how to access each shape's properties on a page, using a commandbutton to trigger the list.
Code:
Private Sub CommandButton1_Click()
With ThisDocument.Pages("Page-1")
For Each x In .Shapes
MsgBox x.Name & " x = " & x.Cells("pinx") & " y = " & x.Cells("piny")
Next
End With
End Sub
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first
'If we're supposed to work in Hex, why have we only got A fingers?' Essex Steam UK for steam enthusiasts
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first
'If we're supposed to work in Hex, why have we only got A fingers?' Essex Steam UK for steam enthusiasts
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.