Hallo VBA-ler,
in einem Modul habe ich folgenden Code erstellt :
For Zeile = 38 To 41
For Spalte = 3 To 10
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ToggleButton.1", Link:=False, DisplayAsIcon:=False).Select
With Selection
.Width = Sheets("Anzeige").Range("F:F").Width
.Height = Sheets("Anzeige").Range("A" & 38).Height
.Left = Cells(Zeile, Spalte).Left
.Top = Cells(Zeile, Spalte).Top
.Placement = xlMoveAndSize
.Name = "Button" & Zeile & Spalte
End With
ActiveSheet.OLEObjects("Button" & Zeile & Spalte).Object.BackColor = RGB(227, 227, 227)
ActiveSheet.OLEObjects("Button" & Zeile & Spalte).Object.Caption = "inaktiv"
Next Spalte
Next Zeile
Dieses Modul erstellt Umschaltflächen auf einem Arbeitsblatt.
Um jeder Schaltfläche ein Click-Event zuweisen zu können, möchte ich die Namen der Schaltflächen auf "Button gefolgt der Werte der Variablen Zeile und Spalte" ändern. Das ging mit der obigen Zuweisung nicht, in der Click Prozedur erscheint immernoch ToggleButtonX_Click().
1.Wie kann ich direkt auf den Namen des ToggleButton zugreifen und diesen ändern? (einfach ToggleButtonX.Name = ... ging nicht)
2.Was ist der Unterschied zwischen dem OLEObject und dem ToggleButton selbst, bzw. warum ändert der obige Befehl nicht die Eingenschaft Name des ToggleButton ?
Vielen Dank im Voraus!!
|