【Word VBA】三葉線模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 三葉線模様描画マクロ()
Const THLFCNXP = 100 '描画開始中心位置X
Const THLFCNYP = 120 ' Y
'
Const THLFANSP = 5 '描画刻み角度
Const THLFRATE = 15 '線の長さ倍率
'
Const THLFCOLS = 4 '横描画数
Const THLFVPIT = THLFRATE * 4.5 '横間隔
Const THLFLNWE = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim intCxp As Integer, intCyp As Integer
Dim sngPBas(360 / THLFANSP, 1) As Single
Dim sngPDat(360 / THLFANSP, 1) As Single
'
Dim sngSit As Single, sngRad As Single
Dim sngR
0