Edit multiple external weblinks in Power Point

macareno · #4 08-14-2018, 03:19 PM

Now iam in the same situation but in this time is an Excel File with hundred of weblinks, how or what would be the macro to change in one hit?

Thanks in advance

Quote:

Originally Posted by JohnWilson

This is just off the top of my head and untested so use with caution on a copy. Obviously change the server addresses.

Code:

Sub changeLinks()

Dim ohl As Hyperlink
Dim osld As Slide
Const serverold As String = "http://www.technologytrish.co.uk"
Const servernew As String = "http://www.whatever.com"
For Each osld In ActivePresentation.Slides
For Each ohl In ActivePresentation.Slides(1).Hyperlinks
If ohl.Address Like serverold & "*" & ".pdf" Then
ohl.Address = Replace(ohl.Address, serverold, servernew)
End If
Next ohl
Next osld
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
MS Power point	Gyroman	PowerPoint	0	08-08-2015 04:59 PM
can power point LINK to embedded object in power point ?	johnseito	PowerPoint	0	05-24-2014 04:31 AM
Microsoft Power Point 2004 to Office Power Point 2007	chuff	PowerPoint	0	03-20-2011 01:23 PM
Power Point on the Web	Carthalion	PowerPoint	0	03-03-2010 09:59 AM
power point	ladonna12	PowerPoint	2	02-16-2009 09:34 AM