Selectionnre une image qu'on vient de coller

Bonjour,

Dans une macro, j'insère des images (.jpg) dans des cellules différentes.
Je détermine la position L (Left) et T (Top).
Je détermine la Hauteur (H) et Largeur (L) de l'image collée
Puis, j'insère avec :

Code:

---

Fichier_Final.Sheets(1).Shapes.AddPicture Fichier.Path, True, True, L, T, W, H

---

Mais ensuite, j'aimerais créer un lien hypertexte vers l'image stockée sur mon PC.
Ainsi l'utilisateur aura une miniature sur Excel et pourra l'ouvrir à l'exterieur.

Pour créer un lien hypertexte, je n'ai, a priori, pas de souci.

Code:

---

ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:="C:\image.jpg"

---

Mais comment selectionner l'image que je viens d'inserer pour y mettre mon ancre?

Bonjour,

Sous VBA, sélectionner n'est pas utile, voire néfaste.

Il est préférable de définir l'objet pour agir dessus :

Code:

---

1 2	Dim shp As Shape Set shp = Fichier_Final.Sheets(1).Shapes.AddPicture(Fichier.Path, True, True, L, T, W, H)

---

Pour poursuivre l'idée de Patrice :coucou: :plusser:, tu construis ton lien en utilisant cette référence :

Code:

---

ActiveSheet.Hyperlinks.Add Anchor:=shp, Address:="C:\image.jpg"

---

Bonjour à tous

Pour info Multipost

RE
@guigol : pas de MP, merci

Pour le multipost il est apprécié que cela soit signalé. Les aidants évitent ainsi de perdre du temps à s'orienter vers de solutions déjà données ailleurs, temps précieux pour répondre à d'autres demandes.

Si une réponse n'arrive pas sur un forum sous 8h (de jour), c'est généralement que la question est mal formulée ou insuffisamment détaillée. Après reformulation, si toujours pas de réponse 2h plus tard, alors effectivement le multipost peut être envisagé.