【Word VBA】業平菱文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 業平菱文様描画マクロ()
Const NARILEFT = 90 '描画開始位置X
Const NARITOPP = 90 ' Y
Const NARILENG = 40 'ひし形長い対角線長さ
Const NARICOLS = 5 '列数
Const NARIROWS = 10 '行数
'
Const NATILNW1 = 2 '線の太さ1 Const NATILNW2 = 1 '線の太さ2 '---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, lngCol As Long
Dim intWiD As Integer, intHei As Integer
Dim intWiH As Integer, intHeH As Integer
Dim intWiS As Integer, intHeS As Integer
Dim intWi
0