【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(REULCY
0
