【Word VBA】丸く並ぶ円描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 丸く並ぶ円描画マクロ()
Const CIRCXPOS = 200 '輪の中心位置 X
Const CIRCYPOS = 160 ' Y
Const CIRCRADI = 100 '輪の半径
'
Const SATECONT = 12 '円の数
Const SATERADI = 25 '円の半径
'---------------------------------------------------------------------------
Dim Ip As Integer, intAng As Integer
Dim intXp As Integer, intYp As Integer, dblRd As Double
'
dblRd = (4 * Atn(1)) / 180
intAng = 360 \ SATECONT
For Ip = 0 To SATECONT - 1
intXp = CIRCRADI * Cos(dblRd * (intAng * Ip)) + CIRCXPOS
intYp = CIRCRADI * Sin(dblRd * (intAng * Ip))
0