【Word VBA】入子菱文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 入子菱文様描画マクロ()
Const RHOMLEFT = 80 '描画開始位置Ｘ
Const RHOMTOPP = 100 ' Ｙ
Const RHOMLENG = 40 'ひし形長い対角線長さ
Const RHOMCOLS = 6 '列数
Const RHOMROWS = 7 '行数
'
Const RHOMLNW1 = 2 '線の太さ(外側)
Const RHOMLNW2 = 1 '線の太さ(内側)
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim intWid As Integer, intHei As Integer
Dim intDxp As Integer, intDyp As Integer
Dim lngCol(1) As Long
lngCol(0) = vb
0
