【Word VBA】霞文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 霞文様描画マクロ()
Const HAZELEFT = 80 '描画開始位置X
Const HAZETOPP = 90 ' Y
'
Const HAZESWD1 = 50 '描画幅1
Const HAZESWD2 = 12 '描画幅2(連結部分)
Const HAZESWD3 = 36 '描画幅3
Const HAZESHT1 = 6 '描画高さ
Const HAZESHT2 = 5 '描画高さ(連結部分)
'
Const HAZESMIS = 0.5 '霞描画位置係数
Const HAZESCNT = 3 '霞の段数
'
Const HAZELNRV = 3 '連結描画補正値
Const HAZEVSPC = 75 '横-間隔
Const HAZEHSPC = 40 '縦-間隔
Const HAZECOLS = 4 '横/描画数
Const HAZEROWS = 4 '縦/描画数
'--------------------------
0