Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
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