すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 円と四角形模様描画マクロ()     Const GEOMLEFT = 90                 '描画開始位置Ｘ     Const GEOMTOPP = 80                '　　　　　　Ｙ     '     Const GEOMSWID = 30                '描画幅     Const GEOMSHEI = GEOMSWID    '描画高さ     '     Const GEOMDMT1 = GEOMSWID * 0.8     '円(大)直径     Const GEOMDMT2 = GEOMSWID * 0.5     '円(小)直径     '     Const GEOMVSPC = 0                   '横-間隔     Const GEOMHSPC = 0                   '縦-間隔     Const GEOMCOLS = 6                   '横/描画数     Const GEOMROWS = 5                  '縦/描画数     '     Const GEOMLNWE = 1                  '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As