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.
Mit der SizeToFit-Methode können Sie die Größe eines Steuerelements so anpassen, dass es in den darin enthaltenen Text oder das verwendete Bild passt.
Syntax
Ausdruck verwendet werden. SizeToFit
Ausdruck Eine Variable, die ein Control-Objekt darstellt.
Hinweise
Sie können die Methode SizeToFit beispielsweise 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.
Mit der SizeToFit-Methode wird 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 die Größe neuer Steuerelemente anzupassen, 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.