That's a good way to learn.
Since it's not at all obvious here's how to put the report in a file on the Desktop
Sub getShapeNames_toFile()
Dim oshp As Shape
Dim osld As Slide
Dim strReport As String
Dim filenum As Integer
Dim strSavePath As String
filenum = FreeFile ' next available # usually but not always 1
strSavePath = Environ("USERPROFILE") & "\Desktop\report.txt"
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!"
Open strSavePath For Output As filenum
Print #filenum, strReport
Close filenum
End If
End Sub
|