ウィンドウサイズの設定

広告

ウィンドウの横幅及び高さの設定が可能です。設定するにはWindowオブジェクトに対して「Width」プロパティ及び「Height」プロパティを使います。 

Dim window1 As Window

Set window1 = Windows("VBAsample.xls")
window1.Width = 300
window1.Height = 200

幅及び高さの単位はポイントです。(ピクセルでは無いので注意して下さい)。

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

サンプルプログラム

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

testwindowope9.bas 

Sub テスト()

    Dim window1 As Window
    
    Set window1 = ActiveWindow
    
    window1.Width = 200
    window1.Height = 150
    
End Sub

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

ウィンドウのサイズの設定

( Written by Tatsuo Ikura )