【Word VBA】笹の葉模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 笹の葉模様描画マクロ()
Const BMBGLEFT = 90 '描画開始位置X
Const BMBGTOPP = 80 ' Y
'
Const BMBGVSPC = 60 '横-間隔
Const BMBGHSPC = 35 '縦-間隔
'
Const BMBGCOLS = 5 '横/描画数
Const BMBGROWS = 5 '縦/描画数
'
Const BMBGBZMG = 1.2 'ベジェ倍率
Const BMBGLNSP = (9 * BMBGBZMG) '葉脈
Const BMBGLNEP = (18 * BMBGBZMG)
Const BMBGLNWT = 0.75 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim intDxp As Integer, intDyp As Integer
0