bestehendes Formular modifizieren
22.12.2003 23:02:15
bjoern sippel
ich versuche mit allen möglichen Klimmzügen, ein bestehendes Formular zu
verändern, jedoch ohne Erfolg.
Mit Modifizieren meine ich, z.B. den Namen des Formulars zu verändern,
oder neue controls hinzuzufügen.
Habe mir hier etliche Beiträge angeschaut und ausprobiert.
Lediglich beim Anlegen neuer Forms funktioniert das Manipulieren
von Forms ??
hier mein code:
--> Abbruch mit der Fehlermeldung:
Objekt erforderlich ...
oder
Ausserhalb von index xyz ....
oder
Pfad kann nicht gefunden werden .. (??)
wird bei:
Set frmNew = ThisWorkbook.VBProject.VBComponents("zzsapwalldorf")
anstelle von zzsapwalldorf eine Nummer angegeben, funktioniert die Routine scheinbar, allerdings ist die Ziffer mir gegenüber "blind", da ich deren Inhalt nicht kenne ...
Die Ziffer kann zwar aufgelöst werden, ist aus meiner Sicht jedoch extrem unständlich -->> type ermitteln usw. ...
vielen Dank im voraus
-->>das Formular zzsapwalldorf existiert bereits.
***********************************************************************
Sub nn()
Dim frmNew
Application.VBE.MainWindow.Visible = False
On Error Resume Next
Set frmNew = ThisWorkbook.VBProject.VBComponents("zzsapwalldorf")
If Err = 0 Then GoTo ErrorHandler
On Error GoTo 0
' -->Manipulation
With frmNew
.properties("Width") = 320
.properties("Height") = 17 * 20 + 50
.properties("Caption") = "zzsapberlin"
.properties("Name") = "frmTageslisten"
End With
ErrorHandler:
VBA.UserForms.Add(frmNew.Name).Show
********************************************************************