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

guigol · 11 Mai 2020

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?

Dudu2 · 11 Mai 2020

Bonjour,

Pour sélectionner:

VB:

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

Sans sélectionner pour ajouter un lien:

Code:

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

Patrice33740 · 11 Mai 2020

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 :

VB:

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

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

guigol

XLDnaute Junior

Dudu2

XLDnaute Barbatruc

Patrice33740

XLDnaute Impliqué

Discussions similaires