【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 +
0
