Report.Scale メソッド (Access)
Scale メソッドは、 Report オブジェクトに座標系を定義します。
構文
式。Scale (Flags, x1, y1, x2, y2)
式Report オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Flags | 必須 | 整数型 (Integer) | |
x1 | 必須 | 単精度浮動小数点型 (Single) | オブジェクトの左上隅の位置を定義する水平方向の座標値を表す単精度浮動小数点型 (Single) の値です。 |
y1 | 必須 | Single | オブジェクトの左上隅の位置を定義する垂直座標の値。 |
x2 | 必須 | 単精度浮動小数点型 (Single) | オブジェクトの右下隅の位置を定義する水平方向の座標値を表す単精度浮動小数点型 (Single) の値です。 |
y2 | 必須 | 単精度浮動小数点型 (Single) | オブジェクトの右下隅の位置を定義する垂直方向の座標値を表す単精度浮動小数点型 (Single) の値です。 |
戻り値
なし
解説
このメソッドは、イベント プロシージャ、またはレポート セクションの OnPrint または OnFormat イベント プロパティで指定されたマクロ、またはレポートの OnPage イベント プロパティでのみ使用します。
Scale メソッドを使用して、座標系を任意のスケールにリセットします。 引数を指定しない Scale メソッドを使用すると、座標系が twip にリセットされます。 Scale メソッドは、 Print および Circle 、 Line 、 PSet などのレポート グラフィックス メソッドの座標系に対して作用します。
例
次の例では、1 つのスケールで円を描画し、 Scale メソッドを使用してスケールを変更し、新しいスケールで別の円を描画します。
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
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。