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