すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 釘抜繋ぎ文様描画マクロ()     Const NAPULEFT = 80　　　　　　　　 '描画開始位置Ｘ     Const NAPUTOPP = 100 　　　　　　　'　　　　　　Ｙ     Const NAPUDISZ = 25                         'ひし形の大きさ     Const NAPUHOSZ = 8                          '穴の大きさ     Const NAPULNSZ = 3                          '線の太さ     Const NAPUCLGP = 1                          '列の間隔     '     Const NAPUROWS = 8                        '縦の数     Const NAPUCOLS = 7                         '横の数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intXp As Integer, intYp As Integer     Dim lngCl As Long     lngCl = RGB(0, 0, 128)                       '←