Application.DocSize メソッド (Project)

アクティブ ウィンドウの幅と高さを設定します。

構文

expression。 DocSize( _Width_, _Height_, _Points_ )

expressionApplication オブジェクトを 表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Width 省略可能 長整数型 (Long) アクティブ ウィンドウの幅を示す数値を指定します。
Height 省略可能 長整数型 (Long) アクティブ ウィンドウの高さを示す数値を指定します。
Points 省略可能 ブール型 (Boolean) 場合は true を指定の幅 と 高さ をポイント単位で指定されます。 False 場合は、ピクセル単位で測定されます。 既定値は False です。

戻り値

ブール型 (Boolean)

例

次の使用例は、プロジェクトのメイン ウィンドウ内で垂直方向に開いているプロジェクトのウィンドウを並べて表示します。

Sub TileProjectWindowsVertically() 
 
    Dim I As Long   ' Index used in For...Next loop 
     
    For I = 1 To Application.Windows.Count 
        Windows(I).Activate 
        DocSize Width:=UsableWidth / Windows.Count, Height:=UsableHeight, Points:=True 
        DocMove XPosition:=(I - 1) * UsableWidth / Windows.Count, YPosition:=0, Points:=True 
    Next I 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on