次の方法で共有

Application.ZoomReport メソッド (Project)

  • [アーティクル]

作業中のレポートを元のサイズの指定した割合に拡大または縮小します。

構文

expression。 ZoomReport (パーセント、全体)

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

パラメーター

名前 必須 / オプション データ型 説明
Percent 省略可能 バリアント型 元のサイズのパーセント。
Entire 省略可能 バリアント型 [全体] パラメーターは効果がありません。
Percent 省略可能 バリアント型
Entire 省略可能 バリアント型
名前 必須 / オプション データ型 説明

戻り値

ブール型 (Boolean)

注釈

Percent パラメーターの値は 10 から 400 です。 値がその範囲外の場合、 ZoomReport メソッドに実行時エラー 1101 "引数の値が無効です" と表示されます。

ZoomReport メソッドは、カスタム レポートや、Project Overview などの組み込みレポートに適用できます。 レポートのサイズを変更し、別のビューに切り替えてから前のレポートに戻ると、ズーム レベルは有効なままになります。 元のサイズを復元するには、次のコマンドを使用します。 ZoomReport 100

例

次の例では、レポートが存在するかどうかを確認します。その場合、この例ではレポートが表示され、レポートが元のサイズの 80% に拡大されます。

Sub ReportZoom()
    Dim reportName As String
    reportName = "Report 1"
    
    If ActiveProject.Reports.IsPresent(reportName) Then
        ApplyReport reportName
        ZoomReport 80
    Else
        MsgBox Prompt:="No custom report name: " & reportName, Title:="Report apply error"
    End If
End Sub

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

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