【Word VBA】丸く並ぶ矢印描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 丸く並ぶ矢印描画マクロ()
Const CIRCXPOS = 200 '円の中心位置 X
Const CIRCYPOS = 180 ' Y
Const CIRCRADI = 100 '円の半径
Const ARRWCONT = 12 '矢印の数
Const ARRWWIDT = 30 '矢印の幅
Const ARRWHEIG = 25 '矢印の高さ
Const ARRBAPHT = 0.4 '矢印の高さに対する棒の太さ比率
Const ARRHDPHT = 0.3 '矢印の高さに対する頭の部分比率
'---------------------------------------------------------------------------
Dim Ip As Integer, intAng As Integer
Dim intXp As Integer, intYp As Integer, dblRd As Double
'
dblRd = (4 * Atn(1)) / 180
intAng = 360 \ ARRWCONT
For Ip = 0
0