Microsoft 365 Selectionner une image qu'on vient d'insérer

[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 :

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.

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?

 

[Dudu2]

Bonjour,

Pour sélectionner:

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select

Sans sélectionner pour ajouter un lien:

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes(ActiveSheet.Shapes.Count), Address:="C:\image.jpg"

 

[Patrice33740]

Re,

Sous VBA, sélectionner n'est pas utile, voire néfaste.
Il est préférable de définir l'objet pour agir dessus :

Dim shp As Shape
  Set shp = Fichier_Final.Sheets(1).Shapes.AddPicture(Fichier.Path, True, True, L, T, W, H)
  ActiveSheet.Hyperlinks.Add Anchor:=shp, Address:=Fichier.Path