すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 曲輪繋ぎ文様描画マクロ()     Const KURULEFT = 120               '描画開始位置Ｘ     Const KURUTOPP = 80                '　　　　　　Ｙ     Const KURUCISZ = 24                 '円の大きさ     Const KURICIOV = 0.25               '円の重なり     '     Const KURUVLSZ = 5                  '縦線の太さ     Const KURUVLGP = 3                  '縦線の間隔     '     Const KURUROWS = 6                '縦の数     Const KURUCOLS = 5                 '横の数     '     Const KURILNWE = 1.5              '線(円)の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intXpt As Integer, intYpt As Integer     Dim lngCol