Méthode Report.Scale (Access)

Article
04/07/2023

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.

Partager via