Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Verwenden Sie die SizeToFit-Methode , um ein Steuerelement so zu dimensionieren, dass es dem darin enthaltenen Text oder Bild entspricht.
Syntax
Ausdruck. SizeToFit
Ausdruck Eine Variable, die ein Control-Objekt darstellt.
Hinweise
Sie können beispielsweise die SizeToFit-Methode auf eine Befehlsschaltfläche anwenden, die zu klein ist, um den gesamten Text in der Caption-Eigenschaft anzuzeigen.
Sie können die SizeToFit-Methode nur in der Formularentwurfsansicht oder in der Berichtsentwurfsansicht auf Steuerelemente anwenden.
Die SizeToFit-Methode macht ein Steuerelement je nach Größe des darin enthaltenen Texts oder Bilds größer oder kleiner.
Verwenden Sie die SizeToFit-Methode in Verbindung mit der CreateControl-Methode , um neue Steuerelemente zu dimensionieren, die Sie im Code erstellt haben.
Hinweis
Nicht alle Steuerelemente, die Text oder ein Bild enthalten, können mit der SizeToFit-Methode vergrößert oder verkleinert werden. Einige Steuerelemente sind an Daten gebunden, deren Größe sich von einem Datensatz zum nächsten ändern kann. Zu diesen Steuerelementen gehören folgende: Textfeld, Listenfeld, Kombinationsfeld und Gebundenes Objektfeld. Die SizeToFit-Methode betrifft keine Steuerelemente in Datenzugriffsseiten.
Beispiel
Im folgenden Beispiel werden ein neues Formular und eine Befehlsschaltfläche im Formular erstellt. Die Prozedur stellt anschließend die Caption-Eigenschaft des Steuerelements ein und passt die Größe des Steuerelements an die Beschriftung an.
Sub SizeNewControl()
Dim frm As Form, ctl As Control
' Create new form.
Set frm = CreateForm
' Create new command button.
Set ctl = CreateControl(frm.Name, _
acCommandButton, , , , 500, 500)
' Restore form.
DoCmd.Restore
' Set control's Caption property.
ctl.Caption = "Extremely Long Control Caption"
' Size control to fit caption.
ctl.SizeToFit
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.