Hello all,

I'm not sure how well I can even explain what I am trying to do, but I'll give it a go.

I've set up a PowerPoint slideshow with a lot of images (240) that I want to show in random order. I've used some VB code to randomize the slides (I didn't write it), but what I'm trying to do now is to find a way of returning a list that shows the name and position (order) of each picture (the file name in this case). I can display the picture's name in PowerPoint below each image as there is an option for this when importing the images.

Of course, I can flick through the slides manually and make a note of each name and where it occurs in the sequence, but this is labour intensive as I intend to make quite a few different versions.

I just wonder if there is a quicker and easier method that anyone knows to get the information (text) I need output into a file of some sorts. I suspect it requires programming, which I'm not great at.



Thanks in advance,

Bornlsippy

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

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

John - you understood exactly what I meant, and the code does exactly what is needed. Perfect. Many many thanks, it's a great help.

Bornslippy