Drawing Canvas Items

S

Steve Lang

Hi All,

I have a document with a drawing canvas and several objects on the canvas.
How can I determine which particular object the user has selected?

I have figured out how to access each item in the canvas (below) but that
doesn't seem to get me to the point where I know which one has been
selected. Any ideas?

Sub Foo()
Dim shpCanvas As CanvasShapes
Dim myShp As Shape
Set shpCanvas = ActiveDocument.Shapes(1).CanvasItems
For Each myShp In shpCanvas
Debug.Print myShp.Name
Next
End Sub

TIA and have a great day!

Steve Lang
 
Top