CustomControl.SizeToFit 方法 (Access)

使用 SizeToFit 方法來調整控制項的大小，使其符合它所包含的文字或影像。

語法

運算式。SizeToFit

表達 代表 CustomControl 物件的 變數。

註解

例如，您可以將 SizeToFit 方法套用至此命令按鈕太小而無法顯示其 Caption 屬性中的所有文字。

您可以將 SizeToFit 方法只能在表單設計檢視中的控制項或報表設計檢視套用。

SizeToFit方法會根據控制項所包含的文字或影像大小，讓控制項變大或較小。

使用 SizeToFit 方法搭配 CreateControl 方法來調整您在程式碼中建立的新控制項大小。

注意事項

[!注意事項] 包含文字或圖像的不是所有控制項可以 SizeToFit 方法來調整都大小。 數個控制項所繫結至變化多端大小至下一筆記錄的資料。 這些控制項包括文字方塊、 清單方塊、 下拉式方塊及結合的物件框控制項。 SizeToFit 方法不適用於控制項上的資料頁。

範例

下列範例會在表單上建立新表單和命令按鈕。 此程序然後會將控制項的 Caption 屬性並調整大小以配合標題的控制項。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。