Question

我正在玩一个进度条（基本上没有任何VBA经验）。我在网上找到了以下代码：

For N = 2 To .Slides.Count

请注意.cfi_def_cfa_offset部分。我希望进度条不是从第二张幻灯片到达最后一张，而是从第二张幻灯片到我称之为＃34;结论＆＃34;的部分的最后一张幻灯片。我怎么能这样做？

谢谢！

编辑：我当前的解决方法是一个硬编码的幻灯片数量，我在宏的开头定义为变量，然后在其余部分使用变量。

Answer 1

以下是一些可以帮助您入门的内容：

LastSlideOf返回传递给它的命名部分中最后一张幻灯片的幻灯片索引：

Function LastSlideOf(sSectionName As String) As Long
    Dim x As Long

    With ActivePresentation.SectionProperties
        x = SectionIndexOf(sSectionName)
        LastSlideOf = (.FirstSlide(x) + .SlidesCount(x)) - 1
    End With

End Function

Function SectionIndexOf(sSectionName As String) As Long
    Dim x As Long
    With ActivePresentation.SectionProperties
        For x = 1 To .Count
            If .Name(x) = sSectionName Then
                SectionIndexOf = x
            End If
        Next
    End With
End Function

VBA：选择已定义部分的所有幻灯片

1 个答案: