レポートに直線・四角形を描く ： Access

Accessレポートに線・四角形を描くのはLineメソッドを使います。

構文は
expression.Line(x1, y1)-(x2,y2), color, BかBF

x1： 始点のx座標
y1： 始点のy座標
x2： 終点のx座標
y2： 終点のy座標
color： 線又は塗りつぶしの色
BかBF： Bは四角形、BFは塗りつぶした四角形、設定しなければ直線になります。

■ Access実行画面

直線→四角形→塗りつぶし四角形の順で描画します。

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    Dim x1 As Long
    Dim y1 As Long
    Dim x2 As Long
    Dim y2 As Long
    '直線
    x1 = Me!ラベル0.Left
    y1 = Me!ラベル0.Top
    x2 = Me!ラベル0.Left + Me!ラベル0.Width
    y2 = Me!ラベル0.Top
    Me.Line (x1, y1)-(x2, y2), RGB(255, 0, 0)

    '四角形
    x1 = Me!ラベル0.Left
    y1 = Me!ラベル0.Top + Me!ラベル0.Height
    x2 = Me!ラベル0.Left + Me!ラベル0.Width
    y2 = y1 + 300
    Me.Line (x1, y1)-(x2, y2), RGB(255, 0, 0), B

    '塗りつぶし四角形
    x1 = Me!ラベル0.Left
    y1 = Me!ラベル0.Top + Me!ラベル0.Height + 500
    x2 = Me!ラベル0.Left + Me!ラベル0.Width
    y2 = y1 + 300
    Me.Line (x1, y1)-(x2, y2), RGB(255, 0, 0), BF

End Sub