Макроси в PowerPoint
Макросът
Private Sub ListBox1_load()
Slide62.ListBox1.AddItem "rty"
Slide62.ListBox1.AddItem "dfg"
Slide62.ListBox1.AddItem "hjk"
Slide62.ListBox1.AddItem "mnb"
Slide62.ListBox1.AddItem "ghj"
End Sub
Sub ListBox1_Click()
Select Case ListBox1.Text
Case "rty"
ActivePresentation.SlideShowWindow.View.GotoSlide (14)
Case "dfg"
ActivePresentation.SlideShowWindow.View.GotoSlide (15)
Case "hjk"
ActivePresentation.SlideShowWindow.View.GotoSlide (16)
Case "mnb"
ActivePresentation.SlideShowWindow.View.GotoSlide (17)
Case "ghj"
ActivePresentation.SlideShowWindow.View.GotoSlide (18)
End Select
End Sub
не се стартира автоматично в режим Slide show
