HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Name von Shapes auslesen
Shapes

Hallo Excelianer
Kann ich irgendwie per Makro den Namen der Shape auslesen auf der das Makro liegt?
Sprich ich habe zum Beispiel 2 Bilder wenn ich auf Bild 1 klicke soll mit Bild 1 was passieren. Bei Klick auf Bild 2 soll mit Bild 2 was passieren.
Jetzt muss ich im Makro die Objekte Activesheet.Shapes("Bild_1") und Activesheet.Shapes("Bild_2") ja direkt ansprechen damit mit denen was passiert. die würde ich nun gern per Variable zuweisen lassen ja nach dem auf welches Bild ich klicke.
Gibt es da eine Möglichkeit?

AW: Name von Shapes auslesen
Shapes

Sorry, natürlich Vielen Dank schon mal und lieben Gruss
Chris
zu schnell abgeschickt
AW: Name von Shapes auslesen
Shapes

Hallo Chris,
das geht so.
Sub click_Shape()
  Dim objShp As Shape
  
  Set objShp = ActiveSheet.Shapes(Application.Caller)
  
  With objShp
    '... dein Code
    MsgBox objShp.Name 'nur als Test!
  End With
  
  Set objShp = Nothing
  
End Sub

Gruß Sepp

AW: Name von Shapes auslesen
Shapes

1000 Dank funktioniert prima!
Application.Caller kann ich noch nicht.
Gruss Chris
AW: Name von Shapes auslesen
Shapes

Application.Caller kannte ich noch nicht. Ist heute nicht mein Tag *ggg*