すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 二重円模様描画マクロ()     Const DOCRLEFT = 80         '描画開始位置Ｘ     Const DOCRTOPP = 80        '　　　　　　Ｙ     '     Const DOCRCOLS = 7          '横/描画数(奇数)     Const DOCRROWS = 7         '縦/描画数(奇数)     '     Const DOCRCOLH = ((DOCRCOLS - 1) / 2)     'Half    Const DOCRROWH = ((DOCRROWS - 1) / 2)     '     Const DOCRDMT1 = 30          '大きな円の直径     Const DOCRRAD1 = (DOCRDMT1 / 2)     Const DOCRDMT2 = 18          '小さな円の直径     Const DOCRRAD2 = (DOCRDMT2 / 2)     Const DOCRDIFF = (DOCRRAD1 - DOCRRAD2)     '     Const DOCRLNCL = &H45FF   '線の色(OrangeRed)    Const DOCRLNWE = 1           '線の太さ     '---------------------------------------------------------------------