【Word VBA】麻の葉文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 麻の葉文様描画マクロ()
Const HEMPLEFT = 80 '描画開始位置Ｘ
Const HEMPTOPP = 100 ' Ｙ
Const HEMPLENG = 30 '三角形一辺長さ
Const HEMPCOLS = 12 '列数
Const HEMPROWS = 6 '行数
'
Const HEMPLNWE = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim intHei As Integer, blnUpp As Boolean
Dim lngCol(1) As Long
Dim intLft As Integer, intTop As Integer
Dim intTxp(2) As Integer, intTyp(2) As Integer
Dim intGxp As Integer, intGyp As Integer
'
lngC
0
