콤보 상자에 슬라이드 제목을 나열하십시오.

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