Click on close macro

[Bradley]

I have a presentation slide that has a hyperlink that takes me to a website.
I would like to have the presentation close after I click the hyperlink.
Can I create a macro for this? How?

 

[David M. Marcovitz]

I have a presentation slide that has a hyperlink that takes me to a
website. I would like to have the presentation close after I click
the hyperlink. Can I create a macro for this? How?

Try this (replacing the URL you want to go to for the google address):

Sub jumpandquit()
ActivePresentation.FollowHyperlink Address:="http://www.google.com/"
ActivePresentation.SlideShowWindow.View.Exit
End Sub

--David

 

[John Wilson]

Probably easiest to create a macro that hyperlinks and then quits

Code would be something like this:

Sub link_Zap()
ActivePresentation.FollowHyperlink ("http://www.google.com")
Application.Quit
End Sub

And the button would have an action of "Run macro"

Hope that helps
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

 

[Bradley]

John thanks it worked. However I am realizing that I don't want to quit the
app I simply want to close the presentation that contains the link. Can I
change Application.Quit to Presentation.Close?

 

[David M. Marcovitz]

As per my earlier response, use this:

ActivePresentation.SlideShowWindow.View.Exit

 

[John Wilson]

As David says

(You can't have Application.Close and if you could i guess it would quit!)

If you wan't the app to minimise to the taskbar you can ADD this to David's
solution
Application.WindowState = ppWindowMinimized
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk