次の方法で共有

SubForm.SizeToFit メソッド (Access)

  • [アーティクル]

SizeToFit メソッドを使用して、コントロールに含まれるテキストまたは画像に合わせてコントロールのサイズを設定します。

構文

式。SizeToFit

式SubForm オブジェクトを表す変数。

注釈

たとえば、小さすぎて " Caption /標題" プロパティのすべてのテキストを表示できないコマンド ボタンに、 SizeToFit メソッドを適用できます。

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 のサポートおよびフィードバックを参照してください。