すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 鱗権太夫模様描画マクロ()     Const SCLGLEFT = 80 　　　　'描画開始位置Ｘ     Const SCLGTOPP = 90 　　　  '　　　　　　Ｙ     '     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