Shape-Eigenschaft übertragen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Frame MsgBox
Bild

Betrifft: Shape-Eigenschaft übertragen
von: Bernhard
Geschrieben am: 03.12.2003 17:54:24

Hallo!

Ich habe mehrere verschiedene Bildchen auf meinem Tabellenblatt, die ein und das selbe Makro aufrufen. Die Bildchen sind mit einem alternativen Text versehen, den ich beim Aufruf des Makros auslesen möchte; d.h. ich möchte wissen, welches Bildchen gedrückt wurde.
Gibts hierfür eine Lösung?

Danke und Grüsse,
Bernhard

Bild


Betrifft: AW: Shape-Eigenschaft übertragen
von: K.Rola
Geschrieben am: 03.12.2003 18:13:20

Hallo,

Option Explicit

Sub Wer_klickte_mich()
Dim ac As Object
Set ac = ActiveSheet.Shapes(Application.Caller)
MsgBox ac.TextFrame.Characters.Text
End Sub


Gruß K.Rola


Bild


Betrifft: Perfekt!! - Danke! (o.T.)
von: Bernhard
Geschrieben am: 03.12.2003 18:17:31

Danke!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Solver wählt keine ganzen Zahlen"