Application.ZoomReport 方法 (Project)

缩放 () 活动报表放大或缩小到其原始大小的指定百分比。

语法

expression。 ZoomReport (%，整个)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Percent	可选	Variant	原始大小的百分比。
Entire	可选	Variant	“整个”参数不起作用。
Percent	可选	Variant
Entire	可选	Variant
名称	必需/可选	数据类型	说明

返回值

Boolean

说明

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。