how to update all links on the slide

[seco]

Hi
i ty this code to update the links on any thing has a link on the slide but still unchnaged !!

For Each hl In ActivePresentation.Slides(1).Hyperlinks
hl.Address = "#new link"
Next
how to update the hyperlinks of the slide?

thanks in advance.

[mike31z]

I use the following addin to refresh the links in a slide show

Uncheck the "Pause show during up date. " Links are update at beginning of each loop of show.


http://skp.mvps.org/updtlinks.htm

just a little more info:

http://www.vbaexpress.com/forum/showthread.php?t=30404

I beleive the correct term is "refresh" links if you can not use skp addin.

Mike

[John Wilson]

For Each hl In ActivePresentation.Slides(1).Hyperlinks
hl.Address = "#new link"
Next

Are you trying to UPDATE the links or change them?

[jimmy8765]

Here is my code.

Sub updateHyperlinks()

Dim s As Slide
Set s = ActivePresentation.Slides(2)

With s.Shapes("Rectangle 4")
.ActionSettings(ppMouseClick).Hyperlink.Delete
With .ActionSettings(ppMouseClick).Hyperlink
.Address = ""
.SubAddress = "joe report"
.ScreenTip = ""
.TextToDisplay = ""
End With
End With

[John Wilson]

Not sure what you are trying to do but .....

subaddress cannot be ="joe report"

subaddress is used in internal links to other slides and the format is "SlideID,SlideIndex,Slide title"

Example = "275,2,My Slide"