Report.Scale 方法 (Access)

Scale 方法定义 报表 对象的坐标系统。

语法

表达式。缩放 (标志、 x1、 y1、 x2、 y2)

表达 一个代表 Report 对象的变量。

参数

名称	必需/可选	数据类型	说明
Flags	必需	Integer
x1	必需	Single	一个定义该对象左上角位置的水平坐标的值。
y1	必需	Single	垂直坐标的值，用于定义对象的左上角的位置。
x2	必需	Single	一个定义该对象右下角位置的水平坐标的值。
y2	必需	Single	一个定义该对象右下角位置的垂直坐标的值。

返回值

Nothing

注解

仅在事件过程或由报表节的 OnPrint 或 OnFormat 事件属性或报表的 OnPage 事件属性指定的宏中使用此方法。

使用 Scale 方法可将坐标系重置为所选的任何刻度。 使用不带参数的 Scale 方法会将坐标系重置为 twips。 Scale 方法影响 Print 方法和报表图形方法，其中包括 圆 、 行 和 PSet 方法的坐标系统。

示例

以下示例使用一个刻度绘制一个圆，然后使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。