【Word VBA】いちご描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub いちご描画マクロ()
Const STRBLEFT = 90 '描画開始位置X
Const STRBTOPP = 80 ' Y
'
Const STRBCOLS = 5 '横/描画数
Const STRBROWS = 4 '縦/描画数
'
Const STRBBBZM = 0.75 'ベジェ曲線描画倍率(本体)
Const STRBHBZM = 0.75 'ベジェ曲線描画倍率(ヘタ)
'
Const STRBBOSX = 27.75 * STRBBBZM '描画調整位置
Const STRBBOSY = 28.05 * STRBBBZM
Const STRBHOSX = STRBBOSX '描画調整位置
Const STRBHOSY = 0 * STRBHBZM
'
Const STRBVPIT = 56 * STRBBBZM '横-間隔
Const STRBHPIT = 65 * STRBBBZM '縦-間隔
'
Const STRBDEFX = 20 * STRBBBZM '変形幅
Const STRBWANG = 30 '振れ幅
Const STRBLNWE = 1
0