【Word VBA】ベジェ曲線による蜘蛛の巣描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub ベジェ曲線による蜘蛛の巣描画マクロ()
Const SPICXPOS = 220 '蜘蛛の巣の中心位置 X
Const SPICYPOS = 200 ' Y
Const SPICCRAD = 150 '蜘蛛の巣の半径
Const SPILCONT = 10 '線の数
Const SPINCONT = 6 '横線の数
Const SPILNWEI = 1.5 '線の太さ
Const SPISAGGI = 0.9 'たるみ度
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, intAng As Integer, dblRd As Double
Dim intNR As Integer, lngCl As Long
Dim intXp1 As Integer, intYp1 As Integer
Dim sngWrk(3, 1) As Single
0
