【Word VBA】井桁卍文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 井桁卍文様描画マクロ()
Const DBCRLEFT = 100 '描画開始位置Ｘ
Const DBCRTOPP = 80 ' Ｙ
'
Const DBCRMAGN = 6 'ポリライン倍率
Const DBCRCOLS = 5 '横描画数
Const DBCRROWS = 3 '縦描画数
'
Const DBCRLNWE = 2 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim varPos As Variant, lngCol As Long
Dim sngBas() As Single, sngDat() As Single
'
'*ポリラインデータ元データ
varPos = Array(1, 3, 1, 5, 3, 5, 3, 3, 5, 3, 5, _
0
