すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 業平菱文様描画マクロ()     Const NARILEFT = 90　　　　         '描画開始位置Ｘ     Const NARITOPP = 90 　　　　　　 '　　　　　　Ｙ     Const NARILENG = 40                    'ひし形長い対角線長さ     Const NARICOLS = 5                      '列数     Const NARIROWS = 10                   '行数     '     Const NATILNW1 = 2                      '線の太さ1    Const NATILNW2 = 1                      '線の太さ2    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intWiD As Integer, intHei As Integer     Dim intWiH As Integer, intHeH As Integer     Dim intWiS As Integer, intHeS As Integer     Dim intWi