【Word VBA】フック型模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub フック型模様描画マクロ()
Const HOOKLEFT = 100 '描画開始位置Ｘ
Const HOOKTOPP = 100 ' Ｙ
'
Const HOOKPMAG = 5 'ポリライン倍率
'
Const HOOKSWID = HOOKPMAG '描画幅
Const HOOKSHEI = HOOKPMAG * 6 '描画高さ
'
Const HOOKVSPC = HOOKPMAG * 1.5 '横-間隔
Const HOOKHSPC = 0 '縦-間隔
Const HOOKCOLS = 15 '横/描画数
Const HOOKROWS = 5 '縦/描画数
'
Const HOOKLNWE = 3 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer,
0
