【Word VBA】水仙の花描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 水仙の花描画マクロ()
Const NARCLEFT = 100 '描画開始位置X
Const NARCTOPP = 100 ' Y
'
Const NARCCOLS = 4 '横/描画数
Const NARCROWS = 3 '縦/描画数
'
Const NARCVPIT = 70 '横/描画間隔
Const NARCHPIT = 60 '縦/描画間隔
'
Const NARCBZMG = 0.2 'ベジュ曲線描画倍率
Const NARCFRAD = (77.4 * NARCBZMG) '花びら
Const NARCGRAD = (90.1 * NARCBZMG) '筋
Const NARCMRAD = 11 '中側花びら半径
Const NARCORAD = 2 'おしべ描画半径
Const NARCARAD = 3
'
Const NARCLNWE = 1 '線の太さ
'---------------------------------------------------
0