Método Application.ZoomReport (Project)

Acerca (amplía o reduce) el informe activo al porcentaje especificado de su tamaño original.

Sintaxis

expresión. ZoomReport (Percent,Entire)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Percent	Opcional	Variant	Porcentaje del tamaño original.
Entire	Opcional	Variant	El parámetro Entire no tiene ningún efecto.
Percent	Opcional	Variant
Entire	Opcional	Variant
Nombre	Obligatorio/opcional	Tipo de datos	Descripción

Valor devuelto

Boolean

Comentarios

El parámetro Percent puede tener un valor de 10 a 400. Si el valor está fuera de ese intervalo, el método ZoomReport muestra un error en tiempo de ejecución 1101, "El valor del argumento no es válido".

El método ZoomReport se puede aplicar a informes personalizados y a informes integrados, como Información general del proyecto. Cuando cambie el tamaño del informe, cambie a otra vista y, a continuación, vuelva al informe anterior, el nivel de zoom permanece en vigor. Para restaurar el tamaño original, use el siguiente comando: ZoomReport 100.

Ejemplo

En el ejemplo siguiente se comprueba si existe un informe; Si es así, el ejemplo muestra el informe y, a continuación, acerca el informe al 80 % de su tamaño 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.