8.7 エクセルウィンドウのサイズ変更
エクセルウィンドウの大きさを変更したり、ウィンドウの位置を変更する方法です。

この操作は、エクセルウィンドウを通常表示(8.6 エクセルウィンドウを最大化、最小化参照)にした後、Applicationの各種のプロパティを設定することで行います。
エクセルウィンドウの大きさを変えるためのプロパティ
以下の各プロパティで変更します。これらのプロパティは、値を設定するとウィンドウの大きさや表示位置が変わり、値を参照すると現在の表示位置や大きさを知ることができます。

Application.Top エクセルウィンドウの縦位置です。マイナス値も指定できます。
Application.Left エクセルウィンドウの横位置です。マイナス値も指定できます。
Application.Width エクセルウィンドウの幅です。マイナス値も指定できます。
Application.Height エクセルウィンドウの高さです。マイナス値も指定できます。
使用例
エクセルのウィンドウサイズ変更例です。実行するとエクセルウィンドウが縮みます…(汗)

なお、ウィンドウサイズを変更したいときは、ウィンドウの状態が通常表示であることが前提です。

Sub prcExcelWindowSize()

    Dim lngHeight As Long
    Dim lngWidth As Long
    Dim lngTop As Long
    Dim lngLeft As Long
    Dim i As Long

    '対象のワークブックを通常表示にします
    Application.WindowState = xlNormal

    'エクセルのウィンドウサイズを変更します
    Application.Height = 400
    Application.Width = 500
    Application.Top = 10
    Application.Left = 10

    '設定した値を取得します
    lngHeight = 400
    lngWidth = 500
    lngTop = 10
    lngLeft = 10

    For i = 1 To 20

        'エクセルウィンドウの縦位置変更
        Application.Top = lngTop
        lngTop = lngTop + 4

        'エクセルウィンドウの横位置変更
        Application.Left = lngLeft
        lngLeft = lngLeft + 4

        'エクセルウィンドウの高さ変更
        Application.Height = lngHeight
        lngHeight = lngHeight - 8

        'エクセルウィンドウの幅変更
        Application.Width = lngWidth
        lngWidth = lngWidth - 8

    Next

End Sub
 ※これはエクセルマクロです
Copyright(C) 1999-2006 結城圭介。 All rights reserved