(Project) 的 Application.ZoomReport 方法

縮放 (將使用中報表) 放大或縮小為其原始大小的指定百分比。

語法

expression。 ZoomReport (百分比，整個)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Percent	選用	Variant	原始大小的百分比。
Entire	選用	Variant	Entire 參數沒有作用。
Percent	選用	Variant
Entire	選用	Variant
名稱	必要/選用	資料類型	描述

傳回值

布林值

註解

Percent 參數的值可以是 10 到 400。 如果值超出該範圍， ZoomReport 方法會顯示運行時錯誤 1101：「自變數值無效」。

ZoomReport 方法可以套用至自定義報表和內建報表，例如專案概觀。 當您變更報表大小、切換至另一個檢視，然後返回上一個報表時，縮放層級仍會保持作用。 若要還原原始大小，請使用下列命令： 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 支援與意見反應。