【Word VBA】網目文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 網目文様描画マクロ()
Const MESHLEFT = 80 '描画開始位置Ｘ
Const MESHTOPP = 100 ' Ｙ
Const MESHWIDT = 24 'メッシュの幅
Const MESHHEIG = 40 'メッシュの高さ
Const MESHCOLS = 7 '列数
Const MESHROWS = 3 '行数
'
Const MESHLNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim Lp As Integer, lngCol As Long
Dim intDxp As Integer, intDyp As Integer
Dim sngDat(3, 1) As Single, sngBas(3, 1) As Single
'
'*ベジェ曲線基礎データ
sngBas(0, 0)
0
