如何获取一节中第一张幻灯片的幻灯片编号

Question

我试图只对特定部分中的幻灯片进行编号。为此，我需要为每张幻灯片生成编号。设first为该节中第一张幻灯片的幻灯片编号。然后，该部分中每张幻灯片的数量公式为：

Number=当前幻灯片编号-第一个+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")