プレゼン　トラのアナ

1. 3ページ以上のスライドがあるPPTファイルを用意します｡
2. PPTの上部ツールバーから[表示]>[マスター]>[スライドマスター]を選択します｡
3. スライドマスターにコントロールツールボックスからコンボボックスを1つ追加します｡
4. コンボボックスをダブルクリックするとSlideMasterがVBAProjectに追加されます｡
5. SlideMasterに以下のコードを貼り付けます｡
6. スライドショーを開始します｡
7. コンボボックスをクリックすると、スライド名が表示されます｡
8. 現在表示されているスライド以外のスライドを選択すると､選択したスライドに表示が変わります｡

Private Sub ComboBox1_Change()
    With ComboBox1
        If Application.SlideShowWindows(1).View.Slide.Name <> .List(.ListIndex) Then
            Application.SlideShowWindows(1).View.GotoSlide (.ListIndex + _
            1)
        End If
    End With
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
                               ByVal Shift As Integer)
    Dim mySld As Slide
    If ComboBox1.ListCount = 0 Then
        ComboBox1.Clear
        For Each mySld In Application.SlideShowWindows(1).Presentation.Slides
            ComboBox1.AddItem mySld.Name
        Next
    End If
End Sub