すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 芝翫縞文様描画マクロ()     Const SIKALEFT = 120　　　　        '描画開始位置Ｘ     Const SIKATOPP = 80　　　　　      '　　　　　　Ｙ     Const SIKACWSZ = 15　　　　        '円弧の大きさ     Const SIKACHSZ = 25　　　　         '円弧の大きさ     Const SIKACIOV = 0.4　　　　　     '円弧の重なり     '     Const SIKALNWE = 1.5 　　　　　　'線の太さ     '     Const SIKAVLGP = 3　　　　　        '縦線の間隔     Const SIKAVLSP = (SIKALNWE + SIKAVLGP)     Const SIKAVSPC = (SIKAVLSP * 4)     Const SIKAVSPM = (SIKAVSPC + SIKAVLGP * 2)     '     Const SIKAROWS = 6　　　　          '縦の描画数     Const SIKACOLS = 5 　　　　　　　 '横の描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer