すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub サークル模様描画マクロ()     Const CIRCLEFT = 100 　　　　　　　'描画開始位置Ｘ     Const CIRCTOPP = 100 　　　　　　  '　　　　　　Ｙ     Const CIRCCOLS = 8                         '横/描画数     Const CIRCROWS = 7                        '縦/描画数     Const CIRCCONT = (CIRCCOLS * CIRCROWS)     '     Const CIRCSRAD = 5                         '中心円半径     Const CIRCCSPC = 3                         '半径刻み幅     Const CIRCCCNT = 5                         '描画円数     '     Const CIRCLNWT = 1.5                     '線の太さ     '円と円の間隔     Const CIRCVSPC = (CIRCSRAD * 2  _                           + CIRCCSPC * (CIRCCCNT))     Const CIRCHSPC = CIRCVSPC     '--------------------------------------------------