'Count number of sections in presentation

With ActivePresentation.SectionProperties

      Debug.Print "Sections: " & .Count



' Enumerate the section info

For I = 1 To .Count

     Debug.Print "Section ID: " & .SectionID(I)

     Debug.Print "Section Name: " & .Name(I)

     Debug.Print "Number of Slides in section: " & .SlidesCount(I)



   ' Note: -1 indicates that the section has no slides in it.

     Debug.Print .FirstSlide(I)

Next

' Add a new section at the start

Call ActivePresentation.SectionProperties.AddSection(1, "Start")



' You can also add a section before a specific slide (4th in this case).

' It will return the section number if successful

' Note: If the presentation has no sections and you try to add a section at some slide other than the 1st one

' then PowerPoint will add 2 sections. One at the beginning of the presentation as well as the one at the

' specified location



Debug.Print .AddBeforeSlide(4, "Test Section")



'Delete sections but not the slides

For I = .Count To 1 Step -1

   Call .Delete(I, False)

Next



' Move the 2nd section to 1

' Note: All slides in the section are moved

Call .Move(2, 1)

End With

' Section properties associated with slides



' Which section does this slide belong to?

' Note: Returns 1 if no sections are present

Debug.Print ActivePresentation.Slides(7).sectionIndex



' Move the 1st slide to the beginning of the 2nd section

Call ActivePresentation.Slides(1).MoveToSectionStart(2)



' Section properties associated with document window



' Expand the 2nd section if it is collapsed.

' Note: Thumbnail view or slide sorter view must be active

' Presentation should have sections

If Not ActiveWindow.IsSectionExpanded(2) Then Call ActiveWindow.ExpandSection(2, True)