ウィンドウ位置の設定

ウィンドウの位置を指定します。ウィンドウはExcelアプリケーションウィンドウの中に含まれるのでアプリケーションウィンドウ内の左上隅を基点とした位置になります。

上記の赤い枠で囲まれた部分がアプリケーションウィンドウとして利用可能な領域です。個々のウィンドウは、アプリケーションウィンドウで使用可能な領域の左上からの距離で指定します。

ウィンドウの位置は、設定したいWindowの「Top」プロパティで上端の位置を、「Left」プロパティで左端の位置を設定します。

Dim window1 As Window

Set window1 = Windows("VBAsample.xls")
window1.Top = 20
window1.Left = 10

ウィンドウの上端位置及び左端位置の単位はポイントで指定します。

注意する点としてはウィンドウが最大化されている時に位置設定を行おうとするとエラーとなりますので注意して下さい。最小化されている時にも位置の設定は可能です。

サンプルプログラム

では簡単なサンプルで試してみましょう。

testwindowope10.bas

Sub テスト()

    Dim window1 As Window
    
    Set window1 = ActiveWindow
    
    window1.Top = 10
    window1.Left = 10
    
End Sub

上記マクロを実行すると次のように表示されます。

OfficePro