次の方法で共有

Report.ScaleTop プロパティ (Access)

  • [アーティクル]

ScaleTop プロパティを使用して、レポートの印刷またはプレビュー中に Circle、Line、Pset、または Print メソッドを使用するか、出力をファイルに保存するときに、ページの上端の位置を表す垂直座標の単位を指定します。 値の取得と設定が可能な単精度浮動小数点型 (Single) の値です。

構文

式。ScaleTop

式Report オブジェクトを表す変数。

注釈

ScaleTop プロパティは、セクションの OnPrint プロパティ設定で指定されたマクロまたは Visual Basic イベント プロシージャを使用して設定できます。

このプロパティを ScaleHeight および ScaleWidth プロパティと組み合わせて使用すると、正と負の座標を持った独自の座標システムを設定できます。 これらを含めた 4 つのスケール プロパティと ScaleMode プロパティの関係は次のとおりです。

  • 4 つのプロパティのいずれかを任意の値に設定すると、 ScaleMode プロパティの値は自動的に 0 に設定されます。

  • ScaleMode プロパティを 0 より大きな値に設定すると、 ScaleHeight および ScaleWidth プロパティは新しい単位に変わり、 ScaleLeft および ScaleTop プロパティは 0 になります。 また、 CurrentX および CurrentY プロパティの設定にも、現在の位置の新しい座標が反映されます。

また、 Scale メソッドを使用して、 ScaleHeight 、 ScaleWidth 、 ScaleLeft 、 ScaleTop の 4 つのプロパティを 1 つのステートメントで設定することもできます。

注:

ScaleTop プロパティは "Top/上位置" プロパティとは異なります。

例

次の例では、Circle メソッドを使って円を描き、その円の中に扇形を作成します。 次に 、FillColor プロパティと FillStyle プロパティを使用して、円グラフスライスを赤に色付けします。 また、左上から円の中央に線を描画します。

To try this example in Microsoft Access, create a new report. Set the OnPrint property of the Detail section to [Event Procedure]. レポートのモジュールに次のコードを入力し、[印刷プレビュー] に切り替えます。

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 
 Const conPI = 3.14159265359 
 
 Dim sngHCtr As Single 
 Dim sngVCtr As Single 
 Dim sngRadius As Single 
 Dim sngStart As Single 
 Dim sngEnd As Single 
 
 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. 
 sngVCtr = Me.ScaleHeight / 2 ' Vertical center. 
 sngRadius = Me.ScaleHeight / 3 ' Circle radius. 
 Me.Circle (sngHCtr, sngVCtr), sngRadius ' Draw circle. 
 sngStart = -0.00000001 ' Start of pie slice. 
 
 sngEnd = -2 * conPI / 3 ' End of pie slice. 
 Me.FillColor = RGB(255, 0, 0) ' Color pie slice red. 
 Me.FillStyle = 0 ' Fill pie slice. 
 
 ' Draw Pie slice within circle 
 Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd 
 
 ' Draw line to center of circle. 
 Dim intColor As Integer 
 Dim sngTop As Single, sngLeft As Single 
 Dim sngWidth As Single, sngHeight As Single 
 
 Me.ScaleMode = 3 ' Set scale to pixels. 
 sngTop = Me.ScaleTop ' Top inside edge. 
 sngLeft = Me.ScaleLeft ' Left inside edge. 
 sngWidth = Me.ScaleWidth / 2 ' Width inside edge. 
 sngHeight = Me.ScaleHeight / 2 ' Height inside edge. 
 intColor = RGB(255, 0, 0) ' Make color red. 
 
 ' Draw line. 
 Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), intColor 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。