【Word VBA】捻じ麻の葉文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 捻じ麻の葉文様描画マクロ()
Const TWHPLEFT = 80 '描画開始位置X
Const TWHPTOPP = 100 ' Y
Const TWHPPLYS = 5 'ポリライン倍率
'
Const TWHPROWS = 5 '縦描画数
Const TWHPCOLS = 6 '横描画数
Const TWHPLNWE = 2 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim intCXp As Integer, intCYp As Integer
Dim intDXp As Integer, intDYp As Integer
Dim sngPBas(5, 1) As Single, sngPDat(5, 1) As Single
Dim sngPTmp(2, 5, 1) As Single
Dim dblRev As Double, dblR
0