【Word VBA】いちょう葉描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub いちょう葉描画マクロ()
Const GINKLEFT = 100 '描画開始位置Ｘ
Const GINKTOPP = 100 ' Ｙ
'
Const GINKBZMG = 0.25 'ベジェ曲線描画倍率
'
Const GINKBWID = 152.9 * GINKBZMG '描画幅
Const GINKBHEI = 184.54 * GINKBZMG '描画高さ
Const GINKVPIT = (GINKBWID + 5) '横-間隔
Const GINKHPIT = (GINKBHEI + 5) '縦-間隔
'
Const GINKCOLS = 6 '横/描画数
Const GINKROWS = 4 '縦/描画数
'
Const GINKLNWE = 1 '線の太さ
Const GINKWAVE = 20 '揺れ角
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intDxp As Integer, intDyp As In
0
