Userform dynamisch erstellen

[sotaros]

Hallo,

wie kann ich dynamisch eine Userform erstellen?
Was fehlt noch beim Code damit dieser funktioniert?


Sub Create_Userform_dynamically()

Dim objVBC As VBComponent

Set objVBC = Application.VBE.ActiveVBProject.VBComponents.Add("3")

objVBC.Properties("Width") = Application.UsableWidth * 2 / 3
objVBC.Properties("Height") = Application.UsableHeight * 2 / 3

End Sub

[Kuwer]

Hallo,

z.B. so:

Sub Create_Userform_dynamically()
  Dim objVBC As Object
  
  Set objVBC = VBA.UserForms.Add(Application.VBE.ActiveVBProject.VBComponents.Add(3).Name)
  objVBC.Width = Application.UsableWidth * 2 / 3
  objVBC.Height = Application.UsableHeight * 2 / 3
  objVBC.Show
End Sub

Gruß Uwe

[sotaros]

Hallo Uwe,

leider gibt es bei mir an folgernder Stelle eine Fehlermeldung


Set objVBC = VBA.UserForms.Add(Application.VBE.ActiveVBProject.VBComponents.Add(3).Name)

Laufzeitfehler 1004
Der programmatische Zugriff auf das Visual Basic Projekt ist nicht sicher.

Jetzt kann ich zwar mit On Error Resume Next diese Fehlermeldung unterdrücken,

die Userform erscheint aber trotzdem nicht.

[RPP63]

Moin!
Datei, Optionen, Trust-Center, Einstellungen
Makroeinstellungen, Zugriff auf das VBA-Projektobjektmodell vertrauen aktivieren

Gruß Ralf

[sotaros]

Das wars!
Also dann bis zur nächsten Frage. Dauert bestimmt nicht lange!! :19: