すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 円扇形描画マクロ()     Const CIRCXPOS = 200     '円の中心位置　X     Const CIRCYPOS = 180      '                    Y     Const CIRCRADI = 100 '円の半径     Const CIRCDIVI = 8     '分割数    '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer    '    intAng = 360 \ CIRCDIVI     For Ip = 0 To CIRCDIVI - 1          With ActiveDocument.Shapes.AddShape(msoShapePie, _                 CIRCXPOS - CIRCRADI, CIRCYPOS - CIRCRADI, _                CIRCRADI * 2, CIRCRADI * 2)                 If (Ip Mod 2) = 0 Then                    .Fill.ForeColor.RGB = RGB(255, 0, 0)        '塗りつぶし色                 Else