Hallo zusammen,
ich habe in einer Excel-Datei per Quellcode eine beliebige Anzahl an Freihandformen erzeugt. Dazu folgender Quellcode:
With Workbooks("Test.xlsm").Worksheets("Tabelle2").Shapes.BuildFreeform(msoEditingAuto, XKoord + 500, YKoord + 1000)
For i = 1 To N_Nodes
XKoord = Workbooks("Test.xlsm").Worksheets("Tabelle2").Cells(Zeile_Anfang + i, 3)
YKoord = Workbooks("Test.xlsm").Worksheets("Tabelle2").Cells(Zeile_Anfang + i, 4)
.AddNodes msoSegmentCurve, msoEditingAuto, XKoord + 500, YKoord + 1000
Next i
.ConvertToShape
End With
Jetzt suche ich den Quellcode wie ich das Ereignis bei anklicken einer dieser Formen aktiviere. Dabei soll der Name der Freihandform ausgelesen werden.
Vielen Dank schon einmal vorab.
Grüße
Gunnar