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

Try something like this:

Code:

---

Sub SaveImagesSection()
    Dim oSldSource As Slide
    Dim oShpSource As Shape
    Dim Ctr As Integer
    Dim secName As String
    Dim sPath As String
    sPath = "C:/users/info/Desktop/"
    Ctr = 1
    For Each oSldSource In ActivePresentation.Slides
        For Each oShpSource In oSldSource.Shapes


            If oShpSource.Type = msoGroup Then
                If ActivePresentation.SectionProperties.Count > 0 Then
                    secName = ActivePresentation.SectionProperties.Name(oSldSource.sectionIndex)
                End If
                Call oShpSource.Export(sPath & secName & Format(Ctr, "00") & ".png", ppShapeFormatPNG)
                Ctr = Ctr + 1
            End If
        Next oShpSource
    Next oSldSource
End Sub

---

Worked a treat. Thank you so much, John.

I forgot the final backslash in the filepath but eventually figured out why nothing was happening.

Regards,
Petra