スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●
構文　expression.MoveSize(Right, Down, Width, Height)

設定項目　　内容
expression　DoCmdオブジェクト［省略不可］
Right　　　 ウィンドウの左上隅の水平位置を数式で指定［省略可能］
Down　　　　ウィンドウの左上隅の垂直位置を数式で指定［省略可能］
Width　　　 ウィンドウの幅を数式で指定［省略可能］
Height　　　ウィンドウの高さを数式で指定［省略可能］

引数と引数に数式を指定することで、アクティブウィンドウの位置を指定します。Accessウィンドウの中での位置を指定できます。引数と引数に数式を指定することで、アクティブウィンドウのサイズを指定します。引数に指定する数式の単位は、twipです。4つの引数のうち、少なくともひとつは指定する必要があります。

● サンプル ●
'ウィンドウの位置を変更する
Sub MovePositionSample()
    'Accessウィンドウの中で左から0twip、上から0twipの位置に
     ウィンドウを移動する
    DoCmd.MoveSize 0, 0
End Sub

'ウィンドウのサイズを変更する
Sub MoveHeightSample()
        If Form_12.tgr1.Value = True Then
            '［サイズを変更］ボタンが選択されたとき、
　　　　　　　高さを3969twip(7cm)にする
            DoCmd.MoveSize , , , 3969
        Else
            '［サイズを変更］ボタンが選択解除されたとき、
　　　　　　　高さを1701twip(3cm)にする
            DoCmd.MoveSize , , , 1701
        End If
End Sub

● 補足 ●
1理論cm＝567twipです。AccessVBAでは、twipを長さの基本単位としています。
1理論cmとは、画面上で1cmではなく、印刷したときに1cmになる長さのことです。