Application.ZoomReport メソッド (Project)

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

構文

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