【Word VBA】桔梗文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 桔梗文様描画マクロ() Const KIKYLEFT = 150 '描画開始位置X
Const KIKYTOPP = 120 ' Y
'
Const KIKYPRAD = 14 '花半径(花びら)
Const KIKYSRAD = 10 '花半径 (/)
Const KIKYMRAD = 4 '花半径(○)
'
Const KIKYROWS = 3 '描画数(行)
Const KIKYCOLS = 4 '描画数(桁)
Const KIKYROLN = 50 '縦方向間隔
Const KIKYCOLN = 60 '横方向間隔
'
Const KIKYLNWE = 1 '描画線の太さ
'
Const KIKYADJU = 13 '調整値
Const KIKYBZXX = 0.15 'ベジェ曲線描画倍率
'-------------------------------------------------------------
0