Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Shape-Eigenschaft übertragen

Forumthread: Shape-Eigenschaft übertragen

Shape-Eigenschaft übertragen
03.12.2003 18:54:24
Bernhard
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shape-Eigenschaft übertragen
03.12.2003 19:13:20
K.Rola
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
Perfekt!! - Danke! (o.T.)
03.12.2003 19:17:31
Bernhard
Danke!
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18