Include Section name in filenames of images
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