次の方法で共有

Application.AppSize メソッド (Project)

  • [アーティクル]

アプリケーション ウィンドウの幅と高さを設定します。

構文

式。 AppSize( _Width_, _Height_, _Points_ )

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

パラメーター

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

戻り値

ブール型 (Boolean)

例

次の使用例は、画面の半分に左に、 Projectのメイン ウィンドウに移動します。

Sub MoveMainWindowToLeftHalf() 
 
    Dim WindowHeight As Long 
     
    ' Remember the height when maximized. 
    Application.WindowState = pjMaximized 
    WindowHeight = Application.Height 
     
    AppSize Width:=UsableWidth / 2, Height:=UsableHeight, Points:=True 
    Application.Left = 0 
    ' Be sure the window uses all the available height. 
    If Application.Height < WindowHeight Then Application.Height = WindowHeight 
     
End Sub

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

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