Метод Application.ZoomReport (Project)

Масштабирует (увеличивает или сжимает) активный отчет до указанного процента от исходного размера.

Синтаксис

выражение. ZoomReport (Процент,целое)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Percent	Необязательный	Variant	Процент исходного размера.
Целый	Необязательный	Variant	Параметр Все не действует.
Percent	Необязательный	Variant
Целый	Необязательный	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 и обратная связь.