すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 三筋格子模様描画マクロ()     Const TRSGLEFT = 80           '描画開始位置Ｘ     Const TRSGTOPP = 80          '　　　　　　Ｙ     '     Const TRSGVSPC = 25          '縦線間隔     Const TRSGHSPC = 25          '横線間隔     '     Const TRSGCOLS = 7           '横格子数     Const TRSGROWS = 6          '縦格子数     '     Const TRSGLNWT = 2 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intEpt(1) As Integer, intMpt(1) As Integer     Dim lngCol As Long    '     lngCol = RGB(138, 43, 226)                '←線色     '*横線     intEpt(0) = TRSGLEFT     intEpt(1) = TRSGLEFT + TRSGVSPC * TRSGCOLS     For Ip = 0 To T