【Word VBA】渦巻き状に三日月描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 渦巻き状に三日月描画マクロ()
Const CIRCXPOS = 200 '輪の中心位置 X
Const CIRCYPOS = 160 ' Y
Const CIRCRADI = 100 '輪の半径
Const CIRCRADP = 0.1 '輪の半径の膨張率 '
Const SATECONT = 18 '三日月の数
Const SATERADI = 10 '三日月の半径(Base)
Const SATECNPC = 12 '三日月の数/一周
Const SATERADP = 0.1 '三日月の半径の膨張率
Const SATERADF = 0.04 '三日月の満ち率
'---------------------------------------------------------------------------
Dim Ip As Integer,
0