【Word VBA】捻り梅描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 捻り梅描画マクロ()
Const TWPLLEFT = 80 '描画開始位置X
Const TWPLTOPP = 80 ' Y
'
Const TWPLCOLS = 5 '横/描画数
Const TWPLROWS = 4 '縦/描画数
'
Const TWPLBZMG = 0.2 'ベジェ曲線描画倍率
Const TWPLFRAD = 74.35 * TWPLBZMG '花びら中心位置
Const TWPLARAD = 40.01 * TWPLBZMG '花びらしわサイズ
Const TWPLHEIG = 56.36 * TWPLBZMG ' 〃
Const TWPLCRAD = 25.01 * TWPLBZMG '真ん中の円半径
Const TWPLLNWE = 1.5 '線の太さ
'
Const TWPLVPIT = TWPLFRAD *4 '横/描画間隔
Const TWPLHPIT = TWPLFRAD * 4
0