【Word VBA】風鈴描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 風鈴描画マクロ()
Const WIBLLEFT = 100 '描画開始位X
Const WIBLTOPP = 80 '_____Y
Const WINBUPLN = 30 '吊るす紐の長さ
Const WINBBWID = 70 '本体幅
Const WINBBHEI = 45 '本体高さ
'
Const WINBHWID = 25 '本体底穴幅
Const WINBHHEI = 10 '本体底穴高さ
Const WINBHPOS = 32 '本体底穴位置
'
Const WINBWWID = 6 '本体中の錘幅
Const WINBWHEI = 4 '本体中の錘高さ
Const WINBWPOS = 33 '本体中の錘位置
'
Const WINBDWLN = 30 '本体と短冊長さ
'
Const WINBTWID = 40 '短冊幅
Const WINBTHEI = 80 '短冊長さ
Const WINBTWAV = 0.2 '短冊うねり
'
Const WINBCONT = 3 '描画数
Const WINBSPAC = 15 '横間隔
Const WINBLNWE = 1 '輪郭太さ
'
0