即効テクニック |
●概要● 構文 expression.MoveSize(Right, Down, Width, Height) 設定項目 内容 expression DoCmdオブジェクト[省略不可] Right ウィンドウの左上隅の水平位置を数式で指定[省略可能] Down ウィンドウの左上隅の垂直位置を数式で指定[省略可能] Width ウィンドウの幅を数式で指定[省略可能] Height ウィンドウの高さを数式で指定[省略可能] プレビュー画面をAccessウィンドウの中の決まった位置に、決まったウィンドウサイズで表示します。引数、引数 でウィンドウの位置を指定します。引数 、引数 でウィンドウサイズを指定します。4つの引数のうち、ひとつ以上を指定する必要があります。引数の単位はtwipです。 ●サンプル● Sub WindowSizeSample() '[社員名簿]レポートを開く DoCmd.OpenReport "社員名簿", acViewPreview 'プレビュー画面の倍率を50%にする DoCmd.RunCommand acCmdZoom50 'ウィンドウの位置、サイズを指定する DoCmd.MoveSize 567, 567, 7371 End Sub ●補足● 1理論cm=567twipです。AccessVBAでは、twipを長さの基本単位としています。 1理論cmとは、画面上ではなく、印刷したときに1cmになる長さのことです。