Bonjour à toutes et à tous,

Je suis sur PowerPoint 2007.

Voici mon problème : je souhaite lors d'un clic sur une forme avoir un lien hypertexte vers fichier + changement couleur après clic sur la forme.

J'ai trouvé pour le lien hypertexte ce code mais cela ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub lien_Slide()
With ActivePresentation.Slides(1).Shapes(1) _
        .ActionSettings(ppMouseClick)
    .Action = ppActionHyperlink
    .Hyperlink.Address = "C:\Users\xxxxx\Desktop\toto.docx"
 
End With
End Sub
Pour changer couleur après clic ce code qui fonctionne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub changecolor_Slide3()
ActivePresentation.Slides(3).Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

Mon souhait serait une macro qui permette d'ouvrir le fichier après clic sur forme et en même temps changer la couleur de la forme.

J'espère avoir été clair....

Merci à toutes et à tous