vba - 在组合框中列出幻灯片标题

Question

我是 VBA 编程的新手。如何combo box从我的幻灯片创建一个列表 ( )？选项value是slide index，标题是幻灯片标题（或名称）

谢谢。

Answer 1

像这样的东西，也许：

Private Sub UserForm_Activate()

    Dim oSl As Slide
    Dim sTemp As String

    For Each oSl In ActivePresentation.Slides
        If oSl.Shapes.HasTitle Then
            Me.ListBox1.AddItem oSl.Shapes.Title.TextFrame.TextRange.Text
        Else
            Me.ListBox1.AddItem CStr(oSl.SlideIndex)
        End If
    Next

End Sub