【Word VBA】 オバケかぼちゃ描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub オバケかぼちゃ描画マクロ()
Const PUMPLEFT = 100 '描画開始位置X
Const PUMPTOPP = 100 ' Y
Const PUMPVSPC = 40 '横-間隔
Const PUMPHSPC = 40 '縦-間隔
'
Const PUMPCOLS = 5 '横/描画数
Const PUMPROWS = 4 '縦/描画数
Const PUMPEYSZ = 6 '目のサイズ
Const PUMPEYVP = 5 '目の位置(外形中心より)
Const PUMPEYHP = -2.5
'
Const PUMPNSWD = 4 '鼻のサイズ
Const PUMPNSHT = 5
Const PUMPNSVP = 0 '鼻の位置(外形中心より)
Const PUMPNSHP = 0
'
Const PUMPMTVP = 0 '口の位置(外形中心より)
Const PUMPMTHP = 12
0