【Word VBA】古銭風模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 古銭風模様描画マクロ()
Const ECOILEFT = 120 '描画開始位置X
Const ECOITOPP = 100 ' Y
'
Const ECOICSIZ = 60 '古銭のサイズ
Const ECOIOTWE = 2 '外形線の太さ
Const ECOIMDWE = 2
Const ECOISMLN = (ECOIOTWE + ECOIMDWE - 1)
Const ECOIHSIZ = 18 '穴の大きさ
Const ECOIHRPS = (ECOICSIZ - ECOIHSIZ) / 2
Const ECOIVSPC = 10 '横の間隔
Const ECOIHSPC = 10 '縦の間隔
'
Const ECOICOLS = 3 '横描画数
Const ECOIROWS = 2 '縦描画数
'--------------------------------------------------
0