Discussion :

[guigol]

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 :

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

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 :

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

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?

[Patrice740]

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 :

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

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

[Menhir]

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

Code :

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

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

[78chris]

Bonjour à tous

Pour info Multipost

[78chris]

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é.