Método Application.ZoomReport (Project)

Amplia (amplia ou reduz) o relatório ativo para o percentual especificado de seu tamanho original.

Sintaxe

expression. ZoomReport(Percentual,Inteiro)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Percent	Opcional	Variantes	A porcentagem do tamanho original.
Entire	Opcional	Variantes	O parâmetro Inteiro não tem efeito.
Percent	Opcional	Variantes
Entire	Opcional	Variantes
Nome	Obrigatório/Opcional	Tipo de dados	Descrição

Valor de retorno

Boolean

Comentários

O parâmetro Percent pode ter um valor de 10 a 400. Se o valor estiver fora desse intervalo, o método ZoomReport mostrará um erro de tempo de execução 1101, "O valor do argumento não é válido".

O método ZoomReport pode ser aplicado a relatórios personalizados e a relatórios internos, como Visão Geral do Projeto. Quando você altera o tamanho do relatório, alterna para outra exibição e retorna para o relatório anterior, o nível de zoom permanece em vigor. Para restaurar o tamanho original, use o seguinte comando: ZoomReport 100.

Exemplo

O exemplo a seguir verifica se existe um relatório; se assim for, o exemplo exibe o relatório e, em seguida, amplia o relatório para 80% do tamanho original.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.