【Word VBA】回転する五角形描画マクロ▽ソースコード

Option Explicit

Option Base 0

Public Sub 回転する五角形描画マクロ()

    Const PENTLEFT = 100                               '描画の開始位置　X

    Const PENTTOPP = 80                                '                    　 Y

    Const PENTLENG = 200                              '五角形の一辺の長さ

    Const PENTSTPP = 0.9                               '五角形の縮小率

    Const PENTANGL = 7                                 '五角形の角度

    Const PENTCONT = 25                               '五角形の数

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

    Dim Ip As Integer, intLng As Integer

    Dim intCXp As Integer, intCYp As Integer

    '

    intLng = PENTLENG \ 2

    intCXp = PENTLEFT + intLng

    intCYp = PENTTOPP + intLng

    For Ip = 0 To PENTCONT - 1

  With ActiveDocument.Shapes.AddShape(msoShapeRegularPentagon, _

             intCXp - intLng, intCYp - intLng, intLng * 2, intLng * 2)

            .Fill.Visible = False

            .Line.Visible = True

            .Line.ForeColor.RGB = RGB(0, 128, 128) '←線色(Teal

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

            .Rotation = PENTANGL * Ip '←回転角

        End With

        intLng = intLng * PENTSTPP

    Next Ip

End Sub

蛇足

　マクロのロジックは、回転する四角形と同じです。