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

Guest

Dudu2

XLDnaute Barbatruc

Patrice33740

XLDnaute Impliqué

Discussions similaires

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

guigol

Guest

Dudu2

XLDnaute Barbatruc

Patrice33740

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency