Report.Scale-Methode (Access)

Artikel
04/07/2023

Die Scale-Methode definiert das Koordinatensystem für ein Report-Objekt .

Syntax

Ausdruck. Skalierung (Flags, x1, y1, x2, y2)

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Flags	Erforderlich	Integer
x1	Erforderlich	Single	Ein Wert für die horizontale Koordinate, die die obere linke Ecke des Objekts definiert.
y1	Erforderlich	Single	Ein Wert für die vertikale Koordinate, die die Position der linken oberen Ecke des Objekts definiert.
x2	Erforderlich	Single	Ein Wert für die horizontale Koordinate, die die untere rechte Ecke des Objekts definiert.
y2	Erforderlich	Single	Ein Wert für die vertikale Koordinate, die die untere rechte Ecke des Objekts definiert.

Rückgabewert

Nichts

Bemerkungen

Verwenden Sie diese Methode nur in einer Ereignisprozedur oder einem Makro, das durch die OnPrint - oder OnFormat-Ereigniseigenschaft für einen Berichtsabschnitt oder die OnPage-Ereigniseigenschaft für einen Bericht angegeben wird.

Verwenden Sie die Scale-Methode , um das Koordinatensystem auf eine beliebige Skalierung zurückzusetzen, die Sie auswählen. Wenn Sie die Scale-Methode ohne Argumente verwenden, wird das Koordinatensystem auf Twips zurückgesetzt. Die Scale-Methode wirkt sich auf das Koordinatensystem für die Print-Methode und die Berichtsgrafikmethoden aus, die die Circle-, Line- und PSet-Methoden enthalten.

Beispiel

Im folgenden Beispiel wird ein Kreis mit einer Skala gezeichnet. Anschließend wird die Scale-Methode verwendet, um die Skala zu ändern und einen weiteren Kreis mit der neuen Skala zu zeichnen.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 DrawCircle 
End Sub 
 
Sub DrawCircle() 
 Dim sngHCtr As Single, sngVCtr As Single 
 Dim sngNewH As Single, sngNewV As Single 
 Dim sngRadius As Single 
 
 Me.ScaleMode = 3 ' Set scale to pixels. 
 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. 
 sngVCtr = Me.ScaleHeight / 2 ' Vertical center. 
 sngRadius = Me.ScaleHeight / 3 ' Circle radius. 
 ' Draw circle. 
 Me.Circle (sngHCtr, sngVCtr), sngRadius 
 ' New horizontal scale. 
 sngNewH = Me.ScaleWidth * 0.9 
 ' New vertical scale. 
 sngNewV = Me.ScaleHeight * 0.9 
 ' Change to new scale. 
 Me.Scale(0, 0)-(sngNewH, sngNewV) 
 ' Draw circle. 
 Me.Circle (sngHCtr + 100, sngVCtr), sngRadius, RGB(0, 256, 0) 
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.