How to show the names of the selected shapes
in a specified slide.
Sub ShowNamesOfSelectedShapes()
On Error Resume Next
With ActiveWindow.Selection.ShapeRange
Dim I As Integer
For I = 1 To .Count
MsgBox .Item(I).Name
Next I
End With
End Sub
| ActiveWindow - A read-only property that returns a DocumentWindow object that represents the active document window. |
| Selection - A read-only property of the DocumentWindow object that returns a Selection object that represents the selection in the specified document window. |
| ShapeRange - A read-only property of the Selection object that returns a ShapeRange object that represents all of the selected slide objects. |
| Count - A read-only property that returns the number of objects in the specified collection. |
| Item(Index) - A method that returns a single Shape object from the ShapeRange collection by name or index. |
| Name - A property of the Shape object that returns it's name. |
|
