Where do you want the shape names to end up?
Message Box?
Array?
Immediate pane?
Print on slide?
In a text file?
Somewhere else?
Example
Sub getShapeNames()
Dim oshp As Shape
Dim osld As Slide
Dim strReport As String
strReport = "Shapes On Slide" & vbCrLf & "===========" & vbCrLf & vbCrLf
On Error Resume Next
Set osld = ActiveWindow.View.Slide
If Not osld Is Nothing Then ' check slide in view
For Each oshp In osld.Shapes
strReport = strReport & oshp.Name & vbCrLf
Next oshp
If strReport = "" Then strReport = "No shapes!"
MsgBox strReport
End If
End Sub
|