CommandButton in Code... *Hilfe*
26.05.2004 13:38:29
SteeL
Ich habe eine Problem, undzwar habe ich ein Makro laufen, dieses soll ein CommandButton erstellen...
mein Code dazu :
Dim Start As Object
Set Start = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=0.75, Top:=0.75, Width:=59.25, Height:= _
48.75).Object
ActiveSheet.OLEObjects.Select
Selection.Name = "cmd_Start"
Start.Caption = "Start"
Nach diesen Code erstellt er einen CommandButton und gibt diesen die Eigenschaft Caption = "Start" und Name = "cmd_Start", das macht er auch soweit gut vom optischen her..., sobald ich aber in der Entwurfsansicht ein doppelklick drauf mache, dann seigt er mir im Code an:
Private Sub CommandButton1 () .... warum ? ich habe doch vorher die Eigenschaft festgelegt oder nicht ?
Würde mich über Antworten freuen.
SteeL