Eigenschaften für OLEObjects per Programm
12.11.2003 08:59:05
Manfred
Ich habe folgendes Problem:
Ich möchte per Programm eine Combobox erzeugen und dafür die Eigenschaften und Listeneinträge ebenfalls per Programm definieren:
Sub Combo()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=100, Top:=60, Width:=90, Height:=20 _
).Select
ActiveSheet.OLEObjects("ComboBox1").BackColor = 26
ActiveSheet.OLEObjects("ComboBox1").Name = "cbo_Listen"
For i = 1 To 10
ActiveSheet.OLEObjects("ComboBox1").AddItem = i & ". Eintrag"
Next
End Sub
Das Erzeugen der Combobox geht problemlos, nur bei den Eigenschaften und bei AddItem kommt ein Laufzeitfehler. Was mache ich falsch? Kann mir jemand helfen ?