Application.ZoomReport メソッド (Project)

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

構文

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

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

パラメーター

戻り値

ブール型 (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 のサポートおよびフィードバックを参照してください。