【Word VBA】千鳥格子描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 千鳥格子描画マクロ()
Const HOTOLEFT = 100 '描画開始位置Ｘ
Const HOTOTOPP = 120 ' Ｙ
Const HOTOMAGN = 10 'ポリライン倍率
Const HOTOCOLS = 6 '横描画数
Const HOTOROWS = 4 '縦描画数
'---------------------------------------------------------------------------
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(0, -2, -1, -2, -3, 0, -2, 0, -1, -1, -1, 0, _
0, 0, -1, 1, -1, 2, 1, 0, 1,
0
