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

Option Explicit

Option Base 0

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

    Const HEPTLEFT = 90　　　  '描画の開始位置Ｘ

    Const HEPTTOPP = 80　　　 '　　　        　 Ｙ

    Const HEPTLENG = 180        '七角形の大きさ

    Const HEPTSTPP = 0.9         '七角形の縮小率

    Const HEPTANGL = 7           '七角形の傾き角

    Const HEPTCONT = 25         '七角形の数

    '

    Const HEPTLNWT = 1.5        '線の太さ

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

    Dim Ip As Integer, intLng As Integer

    Dim lngCol As Long

    '

    lngCol = RGB(255, 20, 147)               '←線の色

    intLng = HEPTLENG \ 2

    For Ip = 0 To HEPTCONT - 1

        With ActiveDocument.Shapes.AddShape(msoShapeHeptagon, _

             HEPTLEFT + HEPTLENG \ 2 - intLng * 3.75, _

             HEPTTOPP + HEPTLENG \ 2 - intLng, _

             intLng * 7.5, intLng * 2)

            .Fill.Visible = False

            .Line.Visible = True

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

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

            .Rotation = HEPTANGL * Ip '←回転角

            .Adjustments(1) = 0.25 '←辺の比率

        End With

        intLng = intLng * HEPTSTPP

    Next Ip

End Sub

《蛇足》三角・四角・五角・六角は、公開済み。