Application.ZoomReport-Methode (Project)

Vergrößert (vergrößert oder verkleinert) den aktiven Bericht auf den angegebenen Prozentsatz seiner originalen Größe.

Syntax

Ausdruck. ZoomReport (Prozent,Ganz)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Percent	Optional	Variant	Der Prozentsatz der ursprünglichen Größe.
Entire	Optional	Variant	Der Parameter Entire hat keine Auswirkung.
Percent	Optional	Variant
Entire	Optional	Variant
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Boolean

Bemerkungen

Der Percent-Parameter kann einen Wert von 10 bis 400 haben. Wenn der Wert außerhalb dieses Bereichs liegt, zeigt die ZoomReport-Methode den Laufzeitfehler 1101 an, "Der Argumentwert ist ungültig".

Die ZoomReport-Methode kann auf benutzerdefinierte Berichte und integrierte Berichte angewendet werden, z. B. projektübersicht. Wenn Sie die Berichtsgröße ändern, zu einer anderen Ansicht wechseln und dann zum vorherigen Bericht zurückkehren, bleibt die Zoomstufe wirksam. Verwenden Sie den folgenden Befehl, um die ursprüngliche Größe wiederherzustellen: ZoomReport 100.

Beispiel

Im folgenden Beispiel wird überprüft, ob ein Bericht vorhanden ist. wenn ja, zeigt das Beispiel den Bericht an und vergrößert den Bericht dann auf 80 % seiner ursprünglichen Größe.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.