I have attached the source files to my last thread - take a look when you have a sec - please!

Nice to see you are still here, and ty yes I did get the 1st question sorted out. But I have a bigger issue with exporting the notes section, can you please help me with that one ( I have a diff thread going)? It's all starting to come back to me after spending a few hours last night going thru examples but still think it will take me a few days till Im up and running like I was...

Hey long time no talk... I was needing a bit of help on this:

Sub ExportGraphics()
Dim x As Long
Dim y As Long
Dim i As Integer
Dim objText As Object

For x = 1 To ActivePresentation.Slides.Count
' Call ActiveWindow.Selection.ShapeRange.Export("C:\Graphics\" & x & ".jpg", ppShapeFormatJPG)
Call ActivePresentation.Slides.Range.Export("C:\Graphics\" & x & ".jpg", ppShapeFormatJPG)
Next

End Sub


I have one graphic on each slide and I want to have the vba loop thru and export each graphic to the folder.... I can get it to work on one slide if I select the graphic (and use the commented out line) but thats timely if i have a deck that is 25 slides or more...

can you help?