Hyperlinks avec icone

[marie49]

Bonjour,

Dans un fichier excel, grâce à une macro, je crée des liens selon la valeur d'une cellule pour accéder à une page d'un autre fichier excel. Je souhaiterai que ce lien soit sous forme d'icone.

Voici le code que j'ai mis :
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
"../BASE.xls", SubAddress:= _
Cells(i, 6) & "!A1", TextToDisplay:="PE - " & Cells(i, 6)

Ce code me fait un lien avec du texte or je souhaiterai une icone.
J'ai essayé avec shape et une icone wordart mais sans succès.
Voici ce que j'ai mis en plus :
,Shapes:="WordArt 1024"

Est-ce possible de mettre une icone?

Merci de vos réponses
Marie

 

[Guest]

Re : Hyperlinks avec icone

bonjour,

Un exemple qui insère une image d'après un fichier à l'endroit de la cellule active et ajoute un lien hypertexte.

Sub LienImage()
    Dim shpImage As Object
    With ActiveSheet
        Set shpImage = .Pictures.Insert("C:\Mes images\0326112001172433484-boot.png")
        ActiveSheet.Hyperlinks.Add Anchor:=shpImage.ShapeRange(1), _
                                              Address:=  "", SubAddress:="Feuil1!A1000"
    End With
End Sub

A+

 

[tototiti2008]

Re : Hyperlinks avec icone

Bonjour marie49,

peut-être :

ActiveSheet.Hyperlinks.Add Anchor:=Activesheet.Shapes("WordArt 1024"), Address:= _
"../BASE.xls", SubAddress:= _
Cells(i, 6) & "!A1", TextToDisplay:="PE - " & Cells(i, 6)

 

[marie49]

Re : Hyperlinks avec icone

Bonjour,

Merci pour vos deux réponses que j'ai testé.
Ca ne marche pas comme je le souhaite, le lien ne se fait pas sur la cellule voulu. Je vais abandonner car en plus des images sur mon fichier s'y sont ajoutées et je n'arrive plus à les supprimer...

Dommage...
A bientot
Marie