すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 歯車模様描画マクロ()    Const GEARLEFT = 100　　　　　　'描画開始位置Ｘ    Const GEARTOPP = 80　　　          '　　　　　　Ｙ    '    Const GEARSIZ1 = 34 　 　　　　　'歯車１直径    Const GEARSIZ2 = 25                    '歯車２    Const GEARSIZ3 = 25                    '歯車３    '    Const GEARHMAG = 15                  '描画間隔（横）    Const GEARVMAG = 15                  '描画間隔（縦）    '    Const GEARHGAP = 16                  '歯車２と歯車３の距離    Const GEARVGAP = 16    Const GEARCOLS = 5                    '横描画数    Const GEARROWS = 4                   '縦描画数    '    Const GEARLNWE = 1                   '輪郭線の太さ    Const GEARADJ1 = 0.15                '歯車の歯高さ    '----------------------------------------------