Discussion :

[Domilink]

Bonjour à tous

Petit soucis sous Powerpoint 2013.
Je souhaite lier un lier hypertexte à un 'Frame' image. Lien que je 'tire' d'un fichier Excel ouvert.
Après des recherches sur internet, j'ai trouvé du code que j'ai appliqué à mon PWP mais cela ne fonctionne pas.

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With ActivePresentation.Slides(5).Shapes("Carte_Entreprise").ActionSettings(ppMouseClick)
        .Action = ppActionHyperlink
        .Hyperlink.Address = xlSheet.Range(Chaine).Value
    End With

La valeur 'ppActionHyperlink' à la valeur 7.
Quand j'applique le code au pas à pas, je vérifie celle-ci... elle est correcte, elle la transmet au '.Action'
Quand je passe à la ligne suivante, la valeur '.Action' passe à zéro !!!
Je continue mon pas à pas...
La valeur de 'xlSheet.Range(Chaine).Value' est bien une chaine reprenant une adresse internet
la propriété '.Hyperlink.Address' prends bien la chaine...
Et quand j'arive au 'End With', la valeur pour la propriété '.Hyperlink.Address' passe à "" !!!

Est-ce que quelqu'un à déjà rencontré ce problème ?
Est-ce que je commet une erreur dans le code ?

J'ai vraiment besoin d'aide

Un grand merci pour celle-ci

Domilink

[Domilink]

J'ai trouvé la solution

Je vous la propose donc, ça peut toujours aider

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub Lien_Carte()
 
     With ActivePresentation.Slides(5).Shapes("LienInternet").ActionSettings(ppMouseClick)
        .Action = ppActionHyperlink
        .Hyperlink.Address = xlSheet.Range(Chaine).Value
        .Hyperlink.Follow
    End With
 
End Sub

Avec : 'Lien_carte' qui est le shape (frame, image) sur lequel vous cliquez
Le frame 'LienInternet' est placé hors du champ de vision de la dia
Le code va lui envoyer le lien hyperlink 'tiré' du fichier excel ouvert au lancement du PWP ('Chaine' représente une cellule excel 'A5' par exemple)
et le .hyperlink.follow lance le lien

Il m'a fallu quelques jours pour trouver la solution, je vous en fait donc profiter