【Word VBA】鱗権太夫模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 鱗権太夫模様描画マクロ()
Const SCLGLEFT = 80 '描画開始位置X
Const SCLGTOPP = 90 ' Y
'
Const SCLGTSIZ = 6 '三角形幅
'
Const SCLGTCN1 = 10 '大きな三角山段数
Const SCLGTCN2 = 4 '小さな三角山段数
'
'横-間隔
Const SCLGVSPC = (SCLGTSIZ * (SCLGTCN1 + 1))
'縦-間隔
Const SCLGHSPC = ((SCLGTSIZ / 2) * (SCLGTCN1 + 1))
' Const SCLGCOLS = 3 '横/描画数
Const SCLGROWS = 4 '縦/描画数
'
Const SCLGLNWE = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
0