Méthode Report.Scale (Access)
La méthode Scale définit le système de coordonnées d'un objet Report.
Syntaxe
expression. Échelle (Indicateurs, x1, y1, x2, y2)
Expression Variable qui représente un objet Report .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Flags | Requis | Entier | |
x1 | Obligatoire | Simple | Valeur de la coordonnée horizontale définissant la position du coin supérieur gauche de l'objet. |
y1 | Obligatoire | Unique | Valeur de la coordonnée verticale qui définit la position du coin supérieur gauche de l’objet. |
x2 | Obligatoire | Simple | Valeur de la coordonnée horizontale définissant la position du coin inférieur droit de l'objet. |
y2 | Obligatoire | Simple | Valeur de la coordonnée verticale définissant la position du coin inférieur droit de l'objet. |
Valeur renvoyée
Aucune
Remarques
Utilisez cette méthode uniquement dans une procédure événementielle ou une macro spécifiée par la propriété d’événement OnPrint ou OnFormat pour une section d’état, ou la propriété d’événement OnPage pour un rapport.
Utilisez la méthode Scale pour réinitialiser le système de coordonnées à n’importe quelle échelle que vous choisissez. L’utilisation de la méthode Scale sans arguments réinitialise le système de coordonnées à twips. La méthode Scale influence le système de coordonnées de la méthode Print et les méthodes graphiques d'état, telles que les méthodes Circle, Line et PSet.
Exemple
L’exemple suivant dessine un cercle avec une échelle, puis utilise la méthode Scale pour modifier l’échelle et dessiner un autre cercle avec la nouvelle échelle.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.