Hallo an alle,
ich habe folgenden Code mit Command Buttons.
blatt1 = "Tabelle1"
blatt2 = "Tabelle2"
anz = 3
For n = 1 To anz
Set button = Worksheets(blatt1).OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=True, Left:=200, Top:=100, Width:=100, Height:=35)
bezbutton = Worksheets(blatt2).Cells(lr2 - n, 1)
Worksheets(blatt1).Shapes("CommandButton" & n + 1).Left = Worksheets(blatt4).Cells(12, 2 + a).Left
Worksheets(blatt1).Shapes("CommandButton" & n + 1).Top = Worksheets(blatt4).Cells(12, 2 + a).Top
Worksheets(blatt1).OLEObjects("CommandButton" & n + 1).Object.Caption = bezbutton
a = a + 2
Next n
Damit füge ich zuerst Command Buttons ein & möchte sie anschließend umbennen und platzieren. [PS: ein button ist bereits auf dem Blatt, deswengen spreche cih die Buttons mit n+1 an)
Das einfügen und das Platzieren funktioniert einwandfrei, nur die Bezeichnungen werden leider nicht übernommen. Ich habe allerdings gemerkt, dass das umbennen funktioniert, wenn der Button breits vor Ausführung des Makros eingefügt ist.
Hat jemand eine Idee, woran es liegen kann, dass die Umbennennung der Buttons nicht funktioniert?
Grüße
Katja
|