【Word VBA】三つ枡模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 三つ枡模様描画マクロ()
Const TMASLEFT = 100 '描画開始位置Ｘ
Const TMASTOPP = 100 ' Ｙ
'
Const TMASLEN1 = 8 '枡のサイズ１
Const TMASLEN2 = 12 '枡のサイズ２
'
Const TMASCOLS = 6 '横/描画数
Const TMASROWS = 4 '縦/描画数
'
Const TMASLNW1 = 3 '線の太さ１
Const TMASLNW2 = 4 '線の太さ２
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim intPit As Integer, intAng As Integer
Dim blnTyp As Boolean, intLen As Int
0
