OLE-Objekte
10.02.2005 08:09:49
Rolf
gibt es eine Möglichkeit, ein Steuerelement
in einem Tabellenblatt in einem Arbeitsgang
anzulegen und zu modifizieren?
Die beiden Prozeduren (s.u.) kann ich nur
isoliert ausführen, also nicht via "Call"
nacheinander aufrufen.
Herzliche Grüße
Rolf
'Combobox anlegen
Sub combo_add()
Sheets("Übungen").OLEObjects.Add(ClassType:="Forms.combobox.1", Link:=False _
, DisplayAsIcon:=False, Left:=200, Top:=10, Width:=250, Height:=30).Select
End Sub
'Combobox-Eigenschaften zuweisen
Sub combo_modify()
Dim cb As ComboBox
Dim A As Variant
A = Array("Bahnhof", "Zeil", "Römer", "Zoo")
Set cb = Sheets("Übungen").ComboBox1
With cb
.List = A
.Font.Size = 14
End With
End Sub