Why not just have three action buttons with "Sales", "Marketing", and
"Engineering" on them. Create three simple macros that each run a different
custom show. To create Custom Shows, click "Slide Show", "Custom Show".
Give each one a name and select the slides you wish to view on each custom
show. Once that is done, click "ALT-F1" to enter the VBE window, click the
"Insert" menu and select "Module", and paste in these three macros (assuming
they are named "Custom Show 1", etc.):
Sub CustomShow1()
SlideShowWindows(1).View.GotoNamedShow "Custom Show 1"
End Sub
Sub CustomShow2()
SlideShowWindows(1).View.GotoNamedShow "Custom Show 2"
End Sub
Sub CustomShow2()
SlideShowWindows(1).View.GotoNamedShow "Custom Show 2"
End Sub
Just have an action button on the last slide of each of the three shows that
link back to the Menu Slide with these three buttons on them.
--
Bill Foley, Microsoft MVP (PowerPoint)
www.pttinc.com
Check out PPT FAQs at:
http://www.rdpslides.com/pptfaq/
Check out Word FAQs at:
http://word.mvps.org/FAQs/General/index.htm
"Neil" <(E-Mail Removed)> wrote in message
news:c3rpn4$4mr$(E-Mail Removed)...
> Hi All,
>
> I have prepared a rather large master presentation that I will open with a
> menu screen that presents users with a command button.
>
> I would like to have the caption on the command button change each time it
> is pressed, ie. from 'Sales' to 'Marketing' to 'Engineering', the macro
> reading the current state of the button (caption) and hiding slides that
are
> not relevant to the department the user has selected.
>
> I have done this before using Visual Basic in Excel though I'm not sure of
> the syntax for Powerpoint.
>
> My macro will run something like:
>
> Make all sheets visible,
> If button.caption = 'Sales',
> hide slides 2,3,4 and 9 then
> button.caption = "Marketing'
>
>
> Elseif button.caption = 'Marketing',
> make all sheets visible, hide slides 2,7,11 then
> button.caption = 'Engineering'.......
>
>
> Can you please assist with correct object identifiers for command buttons
in
> PowerPoint..
>
> Thanks,
>
> Neil
>
>