VBA command to hyperlink to a file

[Victor and TJ Friedmann]

In my PPT2007 presentation I have the following macro designed to open a
file in the active window:

With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick).Action =
pptActionHyperlink
.Hyperlink.Address = "C:\Documents and Settings\My
Documents\cookbook\notes servings\mayonnaise.txt"

Nothing happens when I execute it even thought path is correct.

What is worn?

Thanks,

Vic

 

[David Marcovitz]

In my PPT2007 presentation I have the following macro designed to open a
file in the active window:

With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick).Action =
pptActionHyperlink
.Hyperlink.Address = "C:\Documents and Settings\My
Documents\cookbook\notes servings\mayonnaise.txt"

Nothing happens when I execute it even thought path is correct.

What is worn?

Thanks,

Vic

This code sets an action setting of the selected object to hyperlink (on
click) to the correct path. To use this code, you need to (in Normal View)
click on a shape, execute the macro (Alt-F8 and select and run the macro
that contains that code), go into Slide Show View, and then click on the
shape. Does this work? Is this what you want?
--David
--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

 

[Victor and TJ Friedmann]

Thanks for your response. I did what you suggested but when I press Alt f8
and then "run" I receive an error message "object required" and the debugger
highlights my path--which is correct. Any thoughts?

Vic

 

[David Marcovitz]

Did you click on the shape to select it before hitting Alt-F8? That code
requires a shape to be selected (the shape that will be assigned the
hyperlink).
--David

Thanks for your response. I did what you suggested but when I press Alt f8
and then "run" I receive an error message "object required" and the debugger
highlights my path--which is correct. Any thoughts?

Vic

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

 

[verizon news groups]

I'll double check and let you know.

Vic

Did you click on the shape to select it before hitting Alt-F8? That code
requires a shape to be selected (the shape that will be assigned the
hyperlink).
--David



--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

 

[John Wilson]

You don't show all your code.

Just checking .. the next line does say "End With"??
--
john ATSIGN PPTAlchemy.co.uk
Custom vba coding and PPT Makeovers
Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html
PPTLive Atlanta 2009

 

[verizon news groups]

John,

I quit early last night and have not looked at my problem yet. Yes, there is
an End With. Will update you later today.

Vic

 

[Victor and TJ Friedmann]

John,

Nope, still won't work. I get a 424 error and the debugger highlights my
path.

Here is the whole code:
Sub test3()

With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick).Action =
pptActionHyperlink
.Hyperlink.Address = "C:\Documents and Settings\My
Documents\cookbook\notes servings\mayonnaise.txt"



End With
End Sub

 

[David Marcovitz]

This code works; just watch out for line breaks introduced by the news
system:

Sub test3()
With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick)
.Action = pptActionHyperlink
.Hyperlink.Address = _
"C:\Documents and Settings\My Documents\cookbook\notes
servings\mayonnaise.txt"
End With
End Sub

I believe that your main problem was not starting a new line at .Action

--David

John,

Nope, still won't work. I get a 424 error and the debugger highlights my
path.

Here is the whole code:
Sub test3()

With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick).Action =
pptActionHyperlink
.Hyperlink.Address = "C:\Documents and Settings\My
Documents\cookbook\notes servings\mayonnaise.txt"



End With
End Sub

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

 

[verizon news groups]

Thank you all for your help. Really appreciate it.

Vic