ExcelVBA 応用

ExcelVBA 応用編ウィンドウの操作

「ExceｌVBA入門」を応用したサンプルプロシージャです。
このサンプルプロシージャは、私の環境で作成したものです。このままでは実行できない場合があります。（ブックやシートが無いと動きません）　そのようなときには、自分の環境に合わせて作成しなおしてください。

★ウィンドウのサイズを変更する

ウィンドウサイズを変更するにはWindowState プロパティを使います。
対象オブジェクトがApplicationの時にはExcelウィンドウの大きさ(外枠）を､
Windowの時はドキュメントウィンドウの大きさ（内枠）を設定します｡ Heightプロパティがウィンドウの高さを､Widthプロパティがウィンドウの幅を設定します｡
WindowStateプロパティがxlNormalに設定されている時以外には､値を設定することはできません｡

サンプル

次の例では、外枠（アプリケーションウィンドウ）サイズを指定し、内枠（アクティブウィンドウ）のサイズを最大にしてます。

Sub ウィンドウサイズ()

    With Application                 'アプリケーションウィンドウを対象
        .WindowState = xlNormal      '通常表示に設定します。
        .Width = 800                  'ウィンドウ幅を800に設定
        .Height = 300                'ウィンドウの高さを300に設定
    End With


    With ActiveWindow                 'アクティブウィンドウを対象
          .WindowState = xlNormal     '通常表示に設定します。
          .Left = 0                   'ウィンドウの左端を一番左に設定
          .Top = 0                    'ウィンドウの上端を一番上に設定
          .Height = Application.UsableHeight '高さを最大にする
          .Width = Application.UsableWidth   '-幅を最大にする
    End With
End Sub

★アクティブウィンドウを最大にする

Application.WindowState = xlMaximized

サンプル


With ActiveWindow
    .WindowState = xlNormal
    .Top = 1
    .Left = 1
    .Height = Application.UsableHeight
    .Width = Application.UsableWidth
End With