Run external presentation AND macro from same link

[Panda]

I have a link from which I need to run an external presentation AND a macro.

Basically the user is presented with 4 different links, which each run a
different external presentation. When the user clicks on a link, I'd like a
macro to run so I can remove that link's info from an array (so it doesn't
keep appearing as an option) as well as running the external presentation.

How would I do this?

[Steve Rindsberg]

Rather than maintaining an array, I'd do it a bit more directly.
For example, you could create a slightly different macro for each of the
shapes and assign it to the shape's Action setting/Run Macro

Sub LaunchPresentation(oSh As Shape)
If Len(oSh.TextFrame.TextRange.Text) > 0 Then
Dim oPres As Presentation
Set oPres = Presentations.Open("c:\some\folder\file.ppsx")
oSh.TextFrame.TextRange.Text = ""
End If
End Sub

This makes any text in the shape disappear when clicked and launches the
associated presentation. Next time the shape is clicked, nothing happens,
because there's no longer any text.

==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/

[Panda]

Thanks Steve, that all seems to work, except that 'Presentations.Open' opens
the presentation in PowerPoint for editing, it doesn't actually run it.
I need the external presentation to run as if I'd made it a hyperlink in
Action Settings...

[Steve Rindsberg]

In article <28C0BC94-EBC1-46B6...@microsoft.com>, Panda wrote:
> Thanks Steve, that all seems to work, except that 'Presentations.Open' opens
> the presentation in PowerPoint for editing, it doesn't actually run it.
> I need the external presentation to run as if I'd made it a hyperlink in
> Action Settings...

Are you testing it in slideshow mode or normal view?

>
> "Steve Rindsberg" wrote:
>
> > Rather than maintaining an array, I'd do it a bit more directly.
> > For example, you could create a slightly different macro for each of the
> > shapes and assign it to the shape's Action setting/Run Macro
> >
> > Sub LaunchPresentation(oSh As Shape)
> > If Len(oSh.TextFrame.TextRange.Text) > 0 Then
> > Dim oPres As Presentation
> > Set oPres = Presentations.Open("c:\some\folder\file.ppsx")
> > oSh.TextFrame.TextRange.Text = ""
> > End If
> > End Sub
> >
> > This makes any text in the shape disappear when clicked and launches the
> > associated presentation. Next time the shape is clicked, nothing happens,
> > because there's no longer any text.

[Panda]

Not sure what you mean...
I'm running the slideshow normally (F5 - opens the slide fullscreen, all
toolbars, etc. disappear) then clicking on the shape. It then opens the
external presentation in edit mode (i.e. I can add shapes, change custom
animation, I see toolbars, etc.)

[Steve Rindsberg]

In article <85D3FA0A-2EC0-46B3...@microsoft.com>, Panda
wrote:

> Not sure what you mean...
> I'm running the slideshow normally (F5 - opens the slide fullscreen, all
> toolbars, etc. disappear) then clicking on the shape. It then opens the
> external presentation in edit mode (i.e. I can add shapes, change custom
> animation, I see toolbars, etc.)

OK, you're running it in slideshow view then. Try resaving the external
presentations as Slide Shows rather than as PPTs, change the code to
reflect that and see if that helps.

It'd also be convenient if you'd quote the previous posts in your replies.
Makes it easier to follow, especially for people who join the game late.
Thanks.

>
> "Steve Rindsberg" wrote:
>
> > Are you testing it in slideshow mode or normal view?

[Panda]

Thanks, I'll give that a try.

Sorry about the replies, I'm used to reading all this on the web. I forget
that this is also a newsgroup... :)

"Steve Rindsberg" wrote:

> .
>

[Panda]

That seems to work well, the only issue I have is that Bill's solution to
another problem I had no longer works:
http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.powerpoint&tid=d5514f9f-80a4-4686-90a7-717b3bb27940&cat=&lang=&cr=&sloc=&p=1

Basically, when I click on a shape, the external presentation opens, plays,
then finishes and closes. When it closes, I'm back on the slide where I
clicked on the shape.
I wanted to be taken back to the first slide instead, so Bill suggested
making hidden shapes that cover the entire slide and when the mouse hovers
over then after returning to the original slide (this happens
instantaneously), they automatically hyperlink me back to the first slide.

This solution was working well until I started implementing your solution
here. Just wondering now if it's possible to have both solutions working the
way I want...?

"Steve Rindsberg" wrote:

> .
>

[Steve Rindsberg]

It'd be good to post the code as it now stands so we can see it all together.

But first, I'm thinking it might be enough to add

SlideshowWindows(1).View.GoToSlide(1)

just before launching the external slide show.

[Panda]

Thanks for that, that's a much simpler solution (nothing against Bill's
solution, the situation was different then).

Everything's working well, I think I've finished the PowerPoint!
Thanks heaps!

"Steve Rindsberg" wrote:

> .
>

[Steve Rindsberg]

In article <9C60381F-495B-4150...@microsoft.com>, Panda wrote:
> Thanks for that, that's a much simpler solution (nothing against Bill's
> solution, the situation was different then).
>
> Everything's working well, I think I've finished the PowerPoint!
> Thanks heaps!

Great ...