Power Point Lien ppt

[desatan]

Bonjour,

J'ai un répertoire c:\présentation, dans lequel j'ai d'autres répertoires avec une présentation ppt avec des liens vers ces répertoires.

Je souhaite copier le répertoire présentation sur mon d:. Quand je fais ca, les liens de ma présentation pointent toujours vers le c:.

Y a t il un vba ou autre qui me permettrait de modifier les liens car cliquer sur chaque lien et faire modifier la liaison va me prendre des heures et des heures.

Merci par avance

 

[desatan]

Après recherche, je tente cette macro mais rien ne se passe.

Merci par avance pour votre aide

Sub link_switch()

Dim osld As Slide
Dim oHL As Hyperlink
Dim strNewLink As String
Dim strOldPath As String
Dim strNewPath As String
Dim strFileName As String

strOldPath = "C:\présentation"
strNewPath = "D:\présentation"

For Each osld In ActivePresentation.Slides

For Each oHL In osld.Hyperlinks

strFileName = Right(oHL.Address, Len(oHL.Address) - Len(strOldPath))
strNewLink = strNewPath & strFileName

If oHL.Type = msoHyperlinkRange Then
oHL.TextToDisplay = strNewLink
Else
oHL.Address = strNewLink
End If

Next oHL

Next osld

End Sub