You don't need Command Buttons at all.
Add ten shapes to the master and add text 1,2,3,... 10 etc (nothing else) so that each button has the number of the section
Now add a normal code module and add these few lines of code
Sub sectionFind(oshp As Shape)
Dim osld As Slide
Dim lngSec As Long
lngSec = Val(oshp.TextFrame.TextRange)
For Each osld In ActivePresentation.Slides
If osld.sectionIndex = lngSec Then
SlideShowWindows(1).View.GotoSlide osld.SlideIndex
Exit Sub
End If
Next
End Sub
Give each of the ten shapes the same action of run this macro.
See if that works and is maybe simpler?
|