![]() |
#2
|
|||
|
|||
![]()
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? |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
activex command buttons and text boxes | TRG | Word | 0 | 02-03-2012 09:18 AM |
Check Boxes and Command Buttons | Micky P | Word VBA | 0 | 10-27-2011 01:06 AM |
Command Buttons | lorenambrose | Word | 0 | 10-06-2011 11:55 AM |
command buttons | ronf | Excel | 0 | 04-28-2006 08:32 AM |
command buttons | ronf | Excel | 0 | 12-03-2005 06:26 AM |