15
デザインビュー特有のコントロールの操作である、コントロールのサイズを”グリッドに合わせる”操作は、プログラムではDoCmdオブジェクトの「RunCommand」メソッドを使います。そのメソッドの引数に組み込み定数「acCmdSizeToGrid」を指定して実行します。
- RunCommandメソッドはアクティブになっているフォームに作用します。それ以外のフォームに対して実行したいときは、まずそのデザインビューを開いてアクティブ状態にする必要があります。
- 次のプログラムでは、RunCommandメソッドに組み込み定数「acCmdSelectAll」を指定して実行することで、グリッドに合わせる前にフォーム上のすべてのコントロールを選択しています。よってすべてのコントロールがグリッドに合わせられます。
プログラム
Sub SampleCode_15()
'すべてのコントロールサイズをグリッドに合わせる
'すべてのコントロールを選択
DoCmd.RunCommand acCmdSelectAll
'サイズをグリッドに合わせる
DoCmd.RunCommand acCmdSizeToGrid
End Sub
実行例
■実行前
■実行後
