【Word VBA】千鳥模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 千鳥模様描画マクロ()
Const CHIDLEFT = 80 '描画開始位置Ｘ
Const CHIDTOPP = 90 ' Ｙ
'
Const CHIDVSPC = 80 '横-間隔
Const CHIDHSPC = 70 '縦-間隔
'
Const CHIDCOLS = 4 '横/描画数
Const CHIDROWS = 4 '縦/描画数
'
Const CHIDBZM1 = 0.4 'ベジェ曲線描画倍率
Const CHIDBZM2 = CHIDBZM1
'
Const CHIDLFDX = 80 * CHIDBZM1 '千鳥足１相対位置
Const CHIDLFDY = 10 * CHIDBZM1
Const CHIDRFDX = 56 * CHIDBZM1 '千鳥足２相対位置
Const CHIDRFDY = 50 * CHIDBZM1
'
Const CHIDEYSZ = 20 * CHIDBZM1 '千鳥目玉大きさ
Const CHIDEYDX = -30 * CHIDBZM1 '千鳥目玉相対位置
0
