【Word VBA】二筋格子模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 二筋格子模様描画マクロ()
Const BIFULEFT = 90 '描画開始位置X
Const BIFUTOPP = 90 ' Y
'
Const BIFUVSPC = 25 '縦線間隔
Const BIFUHSPC = 25 '横線間隔
'
Const BIFUCOLS = 8 '横格子数
Const BIFUROWS = 7 '縦格子数
'
Const BIFULNWT = 3 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intEpt(1) As Integer
Dim intMpt(1) As Integer
Dim lngCol As Long
'
lngCol = RGB(0, 0, 139) '←線色
'*横線#############################
intEpt(0) = BIFULEFT
intEpt(1) = BIFULEFT + BIFUVSPC * BIFUC
0