Récupérer le nom d'une image

mth

XLDnaute Barbatruc

• 22 Septembre 2010

• #2

Re : Récupérer le nom d'une image

Bonjour Rounil09,

Voici un petit essai de code :

Code:

Option Explicit
Dim s As Shape, x As String
Sub img()
 
   For Each s In ActiveSheet.Shapes
    x = s.TopLeftCell.Address
    Range(x).Offset(0, 1) = s.Name
   Next s
End Sub

Je me suis inspirée du site de JBoisgontier (dossier Images et shapes)

Bien à toi,

mth

Edit: Bonjour Pierrot
(j'ai peut-être un peu compliqué ... )
Bonne journée à toi,
m

 

Pièces jointes

• NomImge.zip

  21.3 KB · Affichages: 197

Dernière édition: 22 Septembre 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Septembre 2010

• #3

Re : Récupérer le nom d'une image

Bonjour,

si tu n'as qu'une seule image :

Code:

MsgBox Feuil1.Shapes(1).Name

bonne journée
@+

Edition : bonjour mth

 

Vote positif 0 Vote négatif

rounil09

XLDnaute Occasionnel

• 22 Septembre 2010

• #4

Re : Récupérer le nom d'une image

Merci mth et pierrot 93, avec du retard car j'ai du m'absenter...

Vos codes fonctionnent bien, mais en fait j'ai une photo et plusieurs objets dans ma feuille et je voudrais que la macro ne s'applique qu'à la photo (Nommée : image xxx) et pas aux autres objets (Nommés : pictures xxx, groupes xxx, ou boutons xxx, ...).

Je bataille en vain pour essayer d'adapter dans ce sens la macro de mth.

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 22 Septembre 2010

• #5

Re : Récupérer le nom d'une image

re

Peut-être ainsi ? (même source site de JB):

Code:

Sub img()
   For Each s In ActiveSheet.Shapes
    x = s.TopLeftCell.Address
    If s.Type = 13 Then Range(x).Offset(0, 1) = s.Name
   Next s
End Sub

Bonne soirée,

mth

 

Vote positif 0 Vote négatif

rounil09

XLDnaute Occasionnel

• 22 Septembre 2010

• #6

Re : Récupérer le nom d'une image

Inutile de vous triturer les méminges.

J'ai trouvé en cherchant dans le forum (2009) le code suivant qui correspond à mon besoin.


Dim Sh As Shape

For Each Sh In Me.Shapes

If Sh.TopLeftCell.Address = "$AW$1" Then
Sh.Name = "Nouveau Nom"
End If

Next

 

Vote positif 0 Vote négatif

rounil09

XLDnaute Occasionnel

• 22 Septembre 2010

• #7

Re : Récupérer le nom d'une image

Oups!
mth, pris par ma recherche j'avais pas vu ta réponse.
Je teste aussi ton code.
Merci de ton aide.

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 14 Juin 2020

• #8

Bonjour j'ai la même question, mais je souhaiterais retrouver le nom de mon image directement lorsque cette image déclenche la macro.
Exemple: J'ai 3 images qui sont associées toutes les 3 à une même macro.
Je voudrais dès le début de cette macro identifier le nom de l'image qui a déclenché la macro.
Si je cliques sur image1 je retrouve "image1" dans une zone de type string
Si je cliques sur image2 je retrouve "image2" .dans la même zone de type string que ci-dessus...etc
Merci d'avance de votre aide

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 14 Juin 2020

• #9

Bonjour @escouger , ce vieux Fil, le Forum

Un moyen détourné assez simple à mettre en place.... On transmet la string directement à la macro de traitement sans passer par une cellule ou autre "zone de type string".

VB:

Option Explicit

Sub Rectangle1_Click()
QuiRun "Rectangle1"
End Sub

Sub Rectangle2_Click()
QuiRun "Rectangle2"
End Sub

Sub Rectangle3_Click()
QuiRun "Rectangle3"
End Sub

Sub QuiRun(ByVal Qui As String)
    MsgBox "Hello from " & Qui
End Sub

Bonne soirée
@+Thierry

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 14 Juin 2020

• #10

bonjour

VB:

Sub Image1_Cliquer()
    tutu
End Sub
Sub Image2_Cliquer()
    tutu
End Sub
Sub Image3_Cliquer()
    tutu
End Sub

Sub tutu()
    MsgBox Application.Caller
End Sub

 

Pièces jointes

• exemple.xlsm

  24.3 KB · Affichages: 29

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 14 Juin 2020

• #11

Bonsoir @JM27

Ah oui bien vu l'Application.Caller (je l'avais oublié celui-là ! LoL)
Bien à toi, bien à vous
@+Thierry

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Juin 2020

• #12

bonsoir à tous
quand on insert une image et que l'on veut connaitre son nom on peut utiliser le .count de la collection shapes juste après l'insertion
with activesheet:msgbox .shapes(.shapes.count).name :end with

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 14 Juin 2020

• #13

Bonjour Patrick, re le Fil

Ah oui et aussi (sous office 2013), je vois ceci en haut, à gauche de la barre de formules)


Et avec ton code on a bien le MsgBox en confirmation

Bonne soirée
@+Thierry

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 14 Juin 2020

• #14

JM27 à dit:

bonjour

VB:

Sub Image1_Cliquer()
    tutu
End Sub
Sub Image2_Cliquer()
    tutu
End Sub
Sub Image3_Cliquer()
    tutu
End Sub

Sub tutu()
    MsgBox Application.Caller
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 14 Juin 2020

• #15

Super solution, qui colle 100% avec mon besoin.
Grand merci.
Je ne connaissais pas du tout le Application.caller

 

Vote positif 0 Vote négatif