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