【Word VBA】穴あき四角形模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 穴あき四角形模様描画マクロ()
Const FRAMLEFT = 80 '描画開始位置X
Const FRAMTOPP = 90 ' Y
'
Const FRAMSWID = 32 '描画幅
Const FRAMSHEI = 24 '描画高さ
'
Const FRAMVSPC = 10 '横-間隔
Const FRAMHSPC = 10 '縦-間隔
Const FRAMCOLS = 6 '横/描画数
Const FRAMROWS = 5 '縦/描画数
'
Const FRAMHOPS = 0.25 '穴比率から
Const FRAMHOPE = 0.45 '穴比率まで
'
Const FRAMANGL = -25 '傾き
'-------------------------------------------------------------------
0