Report.Scale-Methode (Access)
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.