【Word VBA】流水文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 流水文様描画マクロ()
Const RNWTLEFT = 100 '描画開始位置X
Const RNWTTOPP = 80 ' Y
'*大きな流れ
Const RNWTULN1 = 160 '上部線長さ
Const RNWTDLN1 = 100 '下部
Const RNWTCVR1 = 20 '上下間隔
'*小さな流れ
Const RNWTHPS2 = 15
Const RNWTULN2 = 125 '上部線長さ
Const RNWTDLN2 = 80 '下部
Const RNWTCVR2 = 10 '上下間隔
'*水泡1
Const RNWTVBX1 = 151 '位置
Const RNWTVBY1 = 4
Const RNWTVBD1 = 12 '直径
'*水泡2
Const RNWTVBX2 = 148 '位置
Const RNWTVBY2 = 10
Const RNWTVBD2 = 6 '直径
'
0