列出组合框中的幻灯片标题

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