Partager via

Objet Hyperlinks (PowerPoint)

  • Article

Collection de tous les objets Hyperlink d’une diapositive ou d’une forme de base.

Exemple

Utilisez la propriété Hyperlinkspour renvoyer la collection Hyperlinks . L’exemple ci-dessous montre comment mettre à jour tous les liens hypertexte figurant dans la diapositive un de la présentation active et ayant l’adresse spécifiée.

For Each hl In ActivePresentation.Slides(1).Hyperlinks

    If hl.Address = "c:\current work\sales.ppt" Then

        hl.Address = "c:\new\newsales.ppt"

    End If

Next

Utilisez la propriété Hyperlinkpour créer un lien hypertexte et l’ajouter à la collection Hyperlinks . L’exemple ci-dessous montre comment définir un lien hypertexte à suivre lorsque l’utilisateur clique pendant un diaporama sur la forme 3 de la diapositive 1 figurant dans la présentation active et comment ajouter le nouveau lien hypertexte à la collection. Il faut noter que si la forme 3 est déjà associée à un lien hypertexte activé par clic de souris, l’exemple ci-dessous montre comment ce lien hypertexte est supprimé de la collection lors de l’ajout du nouveau lien, de sorte que le nombre d’éléments de la collection Hyperlinks ne varie pas.

With ActivePresentation.Slides(1).Shapes(3) _
        .ActionSettings(ppMouseClick)

    .Action = ppActionHyperlink
    .Hyperlink.Address = "https://www.microsoft.com"

End With

Voir aussi

Référence du modèle objet PowerPoint

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.