レポートに円を描く ： Access

Accessレポートに円を描くのはCircleメソッドを使います。

構文は
expression.Circle(X, Y, radius, color, start, end, aspect)

X： 円弧の中心のx座標
Y： 円弧の中心のy座標
radius：　円弧の半径
color： 円の外周の色
start： 扇形の場合の始点
end： 扇形の場合の終点
aspect： 円の縦横比を指定。円の場合は既定値の1.0

レポートの場合、フォーマットイベントのプロシージャ内に入力します。

■ Access実行画面

ラベル「レポートに円を描く」を中心に赤色の円を描いています。
半径はラベルの幅です。

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    Dim x As Long
    Dim y As Long
    x = Me!ラベル0.Left + (Me!ラベル0.Width / 2)
    y = Me!ラベル0.Top + (Me!ラベル0.Height / 2)
    Me.Circle (x, y), Me!ラベル0.Width, RGB(255, 0, 0), , , 1
End Sub