Ich müßte über ein Excel-Makro Steuerelemente in eine UserForm einfügen. Kann mir jemand helfen ?
Gruss,
bastello
das ist aber eine gewaltige Aufgabe. Besonders, weil du den zugeordenten code dieser neuen Steuerelemente ja auch irgendwie erzeugen musst.
Ist es nicht einfacher alle Steuerelemente fertig zu programmieren und die jeweils nicht benötigen Srteuerelemente auf .visible=false setzt?
z.B,
Optionbuttton(1).visible=false
Gruß
Jens Huthmann
EDV-Schulungen
www.jhuthmann.de
Versuch's mal etwa so ...
Option ExplicitDim myFrame As Frame
Dim myCtl As ControlPrivate Sub CommandButton1_Click()
Set myFrame = UserForm1.Controls.Add("Forms.Frame.1")
With myFrame
.Top = 20
.Left = 12
.Height = 90
.Width = 186
.Caption = "Ein neuer Frame"
End With
End SubPrivate Sub CommandButton2_Click()
Set myCtl = myFrame.Controls.Add("Forms.OptionButton.1", "Option1", True)
With myCtl
.Top = 20
.Left = 20
.Height = 20
.Width = 100
.Caption = "Hallo"
End With
End Sub
Gruß
Thomas
Risi Thomas Softwareentwicklung
Gruss,
bastel