【Word VBA】ルーローの五角形描画マクロ▽ソースコード

Option Explicit

Option Base 0

Public Sub ルーローの五角形描画マクロ()

    Const REULCXP = 160                  '描画中心位置Ｘ

    Const REULCYP = 150                  '                  Ｙ

    Const REULRAD = 70                   '径

    '

    Const REULLWE = 3.5                  '線の太さ

    '---------------------------------------------------------------------------

    Dim Ip As Integer, dblRd As Double

    Dim intXp As Integer, intYp As Integer

    Dim intRd As Integer, lngCl As Long

    '

    lngCl = RGB(34, 139, 34)　　　'←線色

    dblRd = (4 * Atn(1)) / 180

    intRd = CInt(REULRAD * Sin(dblRd * 72) * 2)

    For Ip = 0 To 4

        intXp = CInt(REULCXP + REULRAD * Sin(dblRd * 72 * Ip))

        intYp = CInt(REULCYP - REULRAD * Cos(dblRd * 72 * Ip))

        '

        With ActiveDocument.Shapes.AddShape(msoShapeArc, _

             intXp - intRd, intYp - intRd, intRd * 2, intRd * 2)

                .Fill.Visible = msoFalse

                .Line.Visible = msoTrue

                .Line.ForeColor.RGB = lngCl              '←線色

                .Line.Weight = REULLWE                 '←線の太さ

                '

                .Adjustments(1) = Ip * 72 + 72

                .Adjustments(2) = Ip * 72 + 36 + 72

          End With

    Next Ip

End Sub