Try something like this:
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