[PPT-2010] Insertion d'un hyperlien dans une zone de texte. [Résolu]

[Harry Covair]

Bonjour le forum,
Puis-je soumettre le problème suivant:
Le contenu d'une zone de texte est défini en VBA.
Est-il possible d'y insérer un hyperlien cliquable.
Exemple de contenu souhaité de la zone de texte: "Plus d'information sur www.developpez.net.", le tout étant généré par VBA.
D'avance merci pour vos pistes de réflexion.

Harry

[Philippe JOCHMANS]

Bonjour

Je pense que ce genre de code devrait aller :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub AjoutZoneAvecLien()
    ' déclaration
    Dim objPres As Presentation
    Dim objSld As Slide
    Dim objShp As Shape
    Dim objLink As TextRange
 
    ' affectation
    Set objPres = ActivePresentation
    Set objSld = objPres.Slides(1)
    Set objShp = objSld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 200, 50)
 
    ' on écrit le texte 
    objShp.TextFrame.TextRange.Text = "Plus d'informations sur www.developpez.net."
 
    ' on récupère le texte pour le lien et on y affecte le lien
    Set objLink = objShp.TextFrame.TextRange.Characters(24, 19)
    With objLink.ActionSettings(ppMouseClick).Hyperlink
        .Address = "http://www.developpez.net"
    End With
End Sub

Philippe

[Harry Covair]

Pendant 1 semaine, j'ai écumé le Net sans trouver de réponse.
Il suffisait de s'adresser à dieu et non pas à ses saints.
Tout grand merci pour la routine. Elle répond exactement à ce que j'attendais.

Harry

[Philippe JOCHMANS]

Re

Envoyé par Harry Covair

Pendant 1 semaine, j'ai écumé le Net sans trouver de réponse.
Il suffisait de s'adresser à dieu et non pas à ses saints.

On a peut-être pas les réponses à tout, mais on y travaille.