【Word VBA】子持吉原繋ぎ文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 子持吉原繋ぎ文様描画マクロ()
Const HVCHLEFT = 100 '描画開始位置X
Const HVCHTOPP = 120 ' Y
Const HVCHDISZ = 40 'ひし形の大きさ
Const HVCHDISH = HVCHDISZ \ 2
Const HVCHDICN = 5 'ひし形の太さ
'
Const HVCHKIRI = 4 'ひし形四隅切り欠け
Const HVCHROWS = 5 '縦の数
Const HVCHCOLS = 4 '横の数
'
Const HNCHDIOV = 16 'ひし形の重なり
Const HVCHDISP = 8 '横の余白
Const HVCHLNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim Lp As Integer, Mp As Integer, Np As Integer
Dim intCxp As Integer, intCyp As Integer
0