See if this gets you close:
Sub getList()
Dim osld As Slide
Dim oshp As Shape
Dim iFile As Integer
Dim tempPath As String
Dim strReport As String
iFile = FreeFile
tempPath = Environ("TEMP") & "\tempTxt.txt"
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoGroup Then
If oshp.GroupItems(1).Type = msoPicture Then
strReport = strReport & "On Slide " & osld.SlideIndex & ": Image name = " & oshp.GroupItems(2).TextFrame.TextRange & vbCrLf
End If
End If
Next oshp
Next osld
Open tempPath For Output As iFile
Print #iFile, strReport
Close iFile
Call Shell("NOTEPAD.EXE " & tempPath, vbNormalFocus)
End Sub
|