Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Name von Shapes auslesen | Herbers Excel-Forum


Betrifft: Name von Shapes auslesen von: Chris
Geschrieben am: 04.12.2009 12:39:41

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?

  

Betrifft: AW: Name von Shapes auslesen von: Chris
Geschrieben am: 04.12.2009 12:40:58

Sorry, natürlich Vielen Dank schon mal und lieben Gruss
Chris

zu schnell abgeschickt


  

Betrifft: AW: Name von Shapes auslesen von: Josef Ehrensberger
Geschrieben am: 04.12.2009 12:52:14

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



  

Betrifft: AW: Name von Shapes auslesen von: Chris
Geschrieben am: 04.12.2009 13:30:43

1000 Dank funktioniert prima!
Application.Caller kann ich noch nicht.

Gruss Chris


  

Betrifft: AW: Name von Shapes auslesen von: Chris
Geschrieben am: 04.12.2009 13:32:23

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


Beiträge aus den Excel-Beispielen zum Thema "Name von Shapes auslesen"