Discussion :

[ybezier]

Bonjour,

J'ai un document word où j'intégrer automatiquement des images dans une zone de texte.
Pour une image, je souhaite intégrer automatiquement un lien hypertexte.
Merci de votre aide.

Ci-dessous, ma macro permettant d'insérer mon image avec icone_doc mon image au formation jpg.

Code :

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

1
2
3
4
5
6
7
8
Windows("temp.doc").Activate
Set objShape = Selection.InlineShapes.AddPicture(FileName:=icone_doc, LinkToFile:=False, SaveWithDocument:=True)
With objShape
    .LockAspectRatio = msoTrue
    .Height = 13 '.Height * 1.1
    .Width = 15 '.Width * 1.1
 
End With

[Heureux-oli]

Salut,

Tu dois sélectionner ton objet pour ensuite ajouter à la sélection ton hyperlink.

Code :

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

1
2
3
objShape.Select
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "http://heureuxoli.developpez.com/", SubAddress:=""