Hyperlinks avec icone

marie49 · 26 Février 2009

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 · 26 Février 2009

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.

Code:

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 · 26 Février 2009

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 · 26 Février 2009

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

Hyperlinks avec icone

marie49

XLDnaute Occasionnel

Guest

Guest

tototiti2008

XLDnaute Barbatruc

marie49

XLDnaute Occasionnel

Discussions similaires

Hyperlinks avec icone

marie49

XLDnaute Occasionnel

Guest

Guest

tototiti2008

XLDnaute Barbatruc

marie49

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency