Macro Buttons in Presentations

[TikiTembo]

I'm running PPT 2003, and was wondering if it's possible to create macro
buttons in presentations. For instance, I'd like a button that, when clicked,
runs the commands "left cursor" and "spacebar". Greatly appreciate the help!

 

[John Wilson]

Do you mean buttons that move to previous / next slide or something else?

 

[TikiTembo]

Hi John:

I'm looking to create a custom button that contains a custom macro instead
of the usual ones.

 

[John Wilson]

But what would you like the macro to do?

 

[TikiTembo]

I'd like the macro to run "backspace" followed by "spacebar" as a button
inserted into the PPT presentation.

 

[John Wilson]

Macros on buttons will only run in a slide show. In a slideshow left cursor
followed by space would do nothing!

If you want the macro to run in edit mode you would need to write an add in
with command buttons.

 

[spudmachine]

Hi Tiki,
What John is trying to say is...if you are in slideshow mode and you press
<Backspace> followed by <Space> you will go back one slide, then forward one
slide.

There are other ways to do this with action settings, so is this what you
want to achieve?

Thus when John asked what you're trying to do he meant in the wider sense,
and not just what keys are you trying to emulate, so repeating the initial
question didn't really supply any additional information.

Are you, in fact, wanting to go back one slide and forward again?

Cheers,
Geoff

 

[John Wilson]

And if you simulate pressing those keys with a macro it will all happen in
microseconds so you see only a flash!

 

[TikiTembo]

I understand that pressing the backspace key will go backward one slide, and
pressing the spacebar will advance one slide. However, when you add animation
to a particular slide, pressing these two keys will "rewind" the slide to the
beginning and "replay" it.

So ultimately, I want a button in the presentation that says "REPLAY". When
users see the slide in presentation mode, they watch the animation. And by
clicking "REPLAY", the user can "rewind" the slide to the beginning and
"replay" it.

And if it happens in microseconds, so much the better.

 

[John Wilson]

Got there in the end!

Try this:

Sub resetme()
Dim i As Integer
i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
ActivePresentation.SlideShowWindow.View.GotoSlide i, msoTrue
End Sub

Note this will rewing to the start of the slide pressing left cursor won't.