Как узнать номер первого слайда в разделе?

Question

Я пытаюсь нумеровать только слайды в определенном разделе. Для этого мне нужно сгенерировать нумерацию для каждого слайда. Пусть first будет номером первого слайда в этом разделе. Тогда формула для номера каждого слайда в разделе:

Номер = Текущий номер слайда - сначала + 1

У меня в настоящее время есть код, который дает мненомер текущего слайда (текст внутри фигуры, об этом не нужно беспокоиться).

.Text = "Add. Info" & vbNewLine & _
ActiveWindow.View.Slide.SlideIndex

Раздел, который я ищу, называется AddInfo.

Как получить номер слайда первого слайда в этом разделе?

Answer 1

Чтобы получить первый слайд определенного раздела, вы можете использовать следующую функцию:

' Returns the index of the first slide under the section `sectionName`.
' Returns -1 if the section is not found or doesn't have any slides.
Public Function GetFirstSlideNumber(ByVal sectionName As String) As Long
    With ActivePresentation.SectionProperties
        Dim i As Long
        For i = 1 To .Count
            If .Name(i) = sectionName Then
                GetFirstSlideNumber = .firstSlide(i)
                Exit Function
            End If
        Next
    End With

    ' Section not found.
    GetFirstSlideNumber = -1
End Function

Использование:

Debug.Print GetFirstSlideNumber("AddInfo")