リリアのパソコン学習記

大好きなパソコンの学習記録です

Excel VBA ウィンドウの高さや幅をポイント数で指定する-Height、Width

ウィンドウ高さ幅

Excel VBAでウィンドウの高さや幅をポイント数で指定するする記録です。

ウィンドウの高さは「Height」プロパティ、幅は「Width」プロパティを使います。

下図は、Excel2016です。

< スポンサーリンク >





構文

高さ

Windowオブジェクト.Height

ウィンドウの高さをポイント単位で表す倍精度浮動小数点型 (Double) の値を取得または設定します。

Windowオブジェクト.Width

ウィンドウの幅をポイント単位で表す倍精度浮動小数点型 (Double) の値を取得または設定します。

ウィンドウの最大サイズを確認するには、「UsableHeight」プロパティを使用します。
ウィンドウが最大化または最小化されているときは、このプロパティに値を設定することはできません。
現在のウィンドウの状態を判別するには、「WindowState」プロパティを使います。

 

ウィンドウを標準の大きさにして高さと幅を500ポイントに設定します。

Sub test()
    With ActiveWindow
        .WindowState = xlNormal
        .Height = 500
        .Width = 500
    End With
End Sub

ウィンドウ高さ幅
ウィンドウ高さ幅

ウィンドウ高さ幅

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします

VBA Excelのウインドウの高さと幅のサイズを設定する-Height、Width

VBA Excelのウインドウの高さと幅のサイズを設定する-Height、Width

Excelのウインドウサイズの高さや幅を設定する記録です。

ウィンドウサイズの高さは「Height」プロパティ、幅は「Width」プロパティを使います。

下図は、Excel2016です。

< スポンサーリンク >





Heightプロパティ、Widthプロパティの構文

高さ

式.Height

Microsoft Excelのウィンドウの高さをポイント単位で表す倍精度浮動小数点型(Double)の値を取得または設定。

 

式.Width

Microsoft Excelのウィンドウの左端から右端までの距離をポイント単位で表す倍精度浮動小数点型(Double)の値を取得または設定。

 

式=Applicationオブジェクト。
ポイント=1/72インチ。約0.35ミリ。

ウィンドウが最小化(アイコン化)されている時は、このプロパティは値の取得のみ可能で、アイコンの高さや幅を返します。ウィンドウが最大化されている時は、このプロパティを設定することはできません。現在のウィンドウの状態を判別するには、WindowStateプロパティを使用します。

 

Excelのウインドウの高さを300ポイントに設定します。

Sub test()
    Application.Height = 300
End Sub

ExcelWindowサイズ

ExcelWindowサイズ

 

Excelのウインドウの幅を300ポイントに設定します。

Sub test()
    Application.Width = 300
End Sub

ExcelWindowサイズ

ExcelWindowサイズ

 

ウィンドウのサイズが最大化されていたら、標準サイズにし、高さを400ポイント、幅を400ポイントに設定してみます。

Sub test()
    With Application
        If .WindowState = xlMaximized Then
            .WindowState = xlNormal
            .Height = 400
            .Width = 400
        End If
    End With
End Sub

ExcelWindowサイズ

ExcelWindowサイズ

ExcelWindowサイズ

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします