【Word VBA】松葉文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 松葉文様描画マクロ()
Const PINELEFT = 100 '描画開始位置Ｘ
Const PINETOPP = 100 ' Ｙ
'
Const PINEVSPC = 25 '横-間隔
Const PINEHSPC = 30 '縦-間隔
Const PINECOLS = 10 '横/描画数
Const PINEROWS = 5 '縦/描画数
'
Const PINEBZMG = 2 'ベジェ設定倍率
Const PINELFLN = 40 '松葉の長さ
Const PINELFOP = 10 '松葉の開き
Const PINELFWT = 2.5 '松葉の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, lngCol(1) As Long
Dim intDxp As Integer, intDy
0
