すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 丸く並ぶ円描画マクロ其の二()     Const CIRCXPOS = 180               '円の中心位置　X     Const CIRCYPOS = 180               '                     Y     Const CIRCRADI = 50                 '円の半径     '     Const SATECONT = 12                '衛星円の数     '     Const CIRCLNWE = 1.5               '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer     Dim intXps As Integer, intYps As Integer     Dim dblRnd As Double, lngCol As Long     '     lngCol = RGB(220, 20, 60)                 '←線色     '*中心円描画     With ActiveDocument.Shapes.AddShape(msoShapeOval, _          CIRCXPOS - CIRCRADI, CIRCYPOS - CIRCRADI