Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Shape-Eigenschaft übertragen

Shape-Eigenschaft übertragen
03.12.2003 17: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

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

Betreff
Datum
Anwender
Anzeige
AW: Shape-Eigenschaft übertragen
03.12.2003 18: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 18:17:31
Bernhard
Danke!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige