【Word VBA】花青海波文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 花青海波文様描画マクロ()
Const FWAVLEFT = 110 '描画開始位置X
Const FWAVTOPP = 125 ' Y
'
Const FWAVFRAD = 4 '扇半径間隔
Const FWAVMARG = 10 '扇半径X数
Const FWAVSWID = (FWAVFRAD * FWAVMARG) '描画幅
Const FWAVSHEI = (FWAVSWID - 5) '描画高さ
'
Const FWAVPRAD = (FWAVSWID / 2) '花びら位置径
Const FWAVPWID = 5 '花びら幅
Const FWAVPHEI = FWAVPRAD '花びら丈
Const FWAVPANG = 20 '花びら刻み角
'
Const FWAVCOLS = 5 '横/描画数
Const FWAVROWS = 4 '縦/描画数
'
Const FWAVLNWE = 3
0