【Word VBA】赤とんぼ描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 赤とんぼ描画マクロ()
Const RDGFLEFT = 90 '描画開始位置X
Const RDGFTOPP = 90 ' Y
'
Const RDGFVSPC = 70 '描画間隔(横)
Const RDGFHSPC = 60 '描画間隔(縦)
Const RDGFCOLS = 4 '横/描画数
Const RDGFROWS = 3 '縦/描画数
'
Const RDGFBZM1 = 0.1 'ベジェ曲線倍率(胴)
Const RDGFBZM2 = 0.1 'ベジェ曲線倍率(羽)
Const RDGFWGX1 = -14 '胴と羽の距離X
Const RDGFWGX2 = 14
Const RDGFWGY1 = 15 '胴と羽の距離Y
Const RDGFWGY2 = 21
'
Const RDGFEYX1 = -4 '胴と目玉の距離X Const RDGFEYX2 = 4 '
Const RDGFEYY1 = -3 '胴と目玉の距離Y Const RDGFEYRD = 2.5
0