すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 一の字繋ぎ文様描画マクロ()     Const BRCKLEFT = 80　　　　　　　　 '描画開始位置Ｘ     Const BRCKTOPP = 80 　　　　　　　  '　　　　　　Ｙ     '     Const BRCKWIDT = 40                       '矩形幅     '矩形高さ　= 矩形幅の半分     Const BRCKHEIG = (BRCKWIDT / 2)     '     Const BRCKCOLS = 6                         '横　描画数     Const BRCKROWS = 8                        '縦　描画数    '     Const BRCKJNWD = 3                        '目地幅     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intWid As Integer     Dim lngCol(1) As Long     '     lngCol(0) = RGB(178, 34, 34)                '←矩形の色