ブックウィンドウ表示サイズの最大値を取得

<< エクセルVBAでワークブックの表示サイズを設定する :前の記事

前回は、WindowStateプロパティを利用したワークブック表示の最大化・最小化・標準の設定と、Width・Heightプロパティを利用した指定サイズの設定について解説しました。ワークブックの表示サイズ(幅・高さ)や表示位置を変更する場合は、xlNormalに設定する必要がありますので十分理解するようにしましょう。今回は、ブックウィンドウ表示サイズの最大値を取得する方法について解説します。

目次

はじめに

こちらでは、ブックウィンドウ表示サイズ(幅・高さ)の最大値を取得します。ワークブックを複数並べるときの必要な情報にもなります。

利用するプロパティ・関数について

今回利用するプロパティ・関数は以下になります。

  • UsableWidthプロパティ
  • UsableHeightプロパティ
  • WindowStateプロパティ
  • Widthプロパティ
  • Heightプロパティ
  • MsgBox関数

UsableWidthプロパティとは

ApplicationオブジェクトのUsableWidthプロパティブックウィンドウ幅の最大値(ブックウィンドウの左端から右端までの距離)を取得します。

変数 = Application.UsableWidth

UsableHeightプロパティとは

ApplicationオブジェクトのUsableHeightプロパティブックウィンドウ高さの最大値(ウィンドウの上端から下端までの距離)を取得します。

変数 = Application.UsableHeight

WindowStateプロパティとは

WindowsコレクションのWindowStateプロパティワークブックの表示サイズを設定します。

Windows("ワークブック名").WindowState = 設定値

Widthプロパティとは

WindowsコレクションのWidthプロパティワークブックの幅(ワークブックの左端から右端までの距離)を設定します。

Windows("ワークブック名").Width = 設定値

Heightプロパティとは

WindowsコレクションのHeightプロパティワークブックの高さ(ワークブックの上端から下端までの距離)を設定します。

Windows("ワークブック名").Height = 設定値

MsgBox関数とは

MsgBox関数ダイアログボックスにメッセージとボタンを表示し、どのボタンが押されたかを示す整数型の数値を返します

MsgBox "表示させる文字列"

ブックウィンドウ表示サイズの最大値を取得するサンプルコード

今回のサンプルコードブックウィンドウ表示サイズの最大値を取得するマクロになります。


Sub sample()

    Dim widthMax As Double
    Dim heightMax As Double
    
    widthMax = Application.UsableWidth
    heightMax = Application.UsableHeight
    
    Windows("Book1").WindowState = xlNormal   '標準
    Windows("Book1").Width = widthMax / 2
    Windows("Book1").Height = heightMax


    MsgBox "ブックウィンドウの最大幅サイズ:" & widthMax & vbCrLf & _
           "ブックウィンドウの最大高さサイズ:" & heightMax

End Sub

実行結果

UsableWidthプロパティとUsableHeightプロパティ

解説


Sub sample()

    Dim widthMax As Double
    Dim heightMax As Double

sampleプロシージャSubステートメントは引数の設定なしです。ApplicationオブジェクトのUsableWidth・UsableHeightプロパティは倍精度浮動小数点型(Double)の値を返すので、Dimステートメントを利用して変数widthMaxと変数heightMaxに倍精度浮動小数点型(Double)を設定しています。


    widthMax = Application.UsableWidth
    heightMax = Application.UsableHeight

こちらは、ApplicationオブジェクトのUsableWidth・UsableHeightプロパティの値を変数widthMaxと変数heightMaxに格納しています。UsableWidthプロパティブックウィンドウ幅の最大値UsableHeightプロパティブックウィンドウ高さの最大値を取得します。取得するサイズの単位は「ポイント」になります。


    Windows("Book1").WindowState = xlNormal   '標準
    Windows("Book1").Width = widthMax / 2
    Windows("Book1").Height = heightMax

こちらは、前回のワークブックの表示サイズを設定するの内容になります。WindowsコレクションのWindowStateプロパティにxlNormalを設定することでサイズの変更できるようにしています。また、ワークブックの幅は変数widthMaxの値の1/2に高さは変数heightMaxの値で設定しています。


    MsgBox "ブックウィンドウの最大幅サイズ:" & widthMax & vbCrLf & _
           "ブックウィンドウの最大高さサイズ:" & heightMax

End Sub

そしてMsgBox関数でブックウィンドウの最大幅サイズとブックウィンドウの最大高さサイズを表示しています。最後はEndステートメントを利用してsampleプロシージャを終了させます。

まとめ

今回は、ApplicationオブジェクトのUsableWidth・UsableHeightプロパティを利用して、ブックウィンドウサイズの最大値を取得する方法について解説しました。ワークブックを複数並べるときの必要な情報にもなります。次回は、エクセルVBAでワークブックの表示位置の設定について解説します。

エクセルVBAのウィンドウ操作一覧

次の記事: エクセルVBAでワークブックの表示位置を設定する >>

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

  • このエントリーをはてなブックマークに追加
ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください^^

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE(InternetExplorer)操作にも挑戦してみてください^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。