【Word VBA】輪違い麻の葉文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 輪違い麻の葉文様描画マクロ()
Const RIMILEFT = 125 '描画開始位置X
Const RIMITOPP = 120 ' Y
Const RIMIBEZA = 1 'ベジェ曲線倍率
'
Const RIMICOLS = 8 '描画列数
Const RIMIROWS = 5 '描画行数
Const RINISPAC = 5 '間隔
'
Const RIMILBWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim varBezi As Variant, sngBBas(2, 3, 1) As Single
Dim sngBDat(3, 1) As Single, intLen As Integer
Dim intHei As Integer, intMhe As Integer
Dim dblRad As Double, dblSit As Double
Dim intCxp As Integer, intCyp As
0