【Word VBA】工字繋ぎ文様描画マクロ其の二▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 工字繋ぎ文様描画マクロ2()
Const KOJILEFT = 150 '描画開始位置Ｘ
Const KOJITOPP = 100 ' Ｙ
'
Const KOJIPRAT = 5 'ポリライン描画倍率
'
Const KOJICOLS = 6 '横描画数
Const KOJIROWS = 5 '縦描画数
Const KOJICXP1 = 0 '横連結ポイント
Const KOJICXP2 = 6
Const KOJICYP1 = 5 '縦連結ポイント
Const KOJICYP2 = 17
'
Const KOJILNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, lngColr(1) As Long
Dim intDxp As Integer, intDyp As Integer
Dim varPoly As Variant
D
0
