【Word VBA】へのへのもへじ描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub へのへのもへじ描画マクロ()
Const HENOCNXP = 150 '描画中心位置(X)
Const HENOCNYP = 150 ' (Y)
'
Const HENOBHEH = 5 '<へ>ベジェ横倍率
Const HENOBHEV = 5 ' 縦
Const HENOBNOH = 5 '<の>ベジェ横倍率
Const HENOBNOV = 5 ' 縦
Const HENOBMOH = 5 '<も>ベジェ横倍率
Const HENOBMOV = 8 ' 縦
Const HENOBJIH = 30 '<じ>ベジェ横倍率
Const HENOBJIV = 18 ' 縦
''
' '中心位置から
Const HENOHEHL = 20 '〃<へ>の距離[横
Const HENOHEVL = -20 ' [縦
Const HENONOVL = 0 '〃<の>の距離[縦
0