即効テクニック |
● 概要 ● 構文 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になる長さのことです。