29.12.2018, 22:53
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
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