Hi,

I'd like the filenames of images to include Section name.

This is my code so far:

Sub SaveImagesSection()
Dim oSldSource As Slide
Dim oShpSource As Shape
Dim Ctr As Integer


Dim sPath As String


sPath = "xxx"
Ctr = 1


For Each oSldSource In ActivePresentation.Slides
For Each oShpSource In oSldSource.Shapes

If oShpSource.Type = msoGroup Then

Call oShpSource.Export(sPath & [Section Name here] & Format(Ctr, "00") & ".png", ppShapeFormatPNG)

Ctr = Ctr + 1
End If

Next oShpSource
Next oSldSource




End Sub

Thanks in advance