【Word VBA】直線並ぶ模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 直線並ぶ模様描画マクロ()
Const LNUPCXP = 160 '描画中心位置Ｘ
Const LNUPCYP = 180 ' Ｙ
Const LNUPWID = 220 '図形幅
Const LNUPHEI = 220 '図形高さ
Const LNUPCNT = 20
'
Const LNUPWEI = 0.75 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim lngCol As Long
Dim intXGp As Integer, intYGp As Integer
'
lngCol = vbMagenta '←線色
'
intXGp = (LNUPWID \ 2) \ LNUPCNT
intYGp = (LNUPHEI \ 2) \ LNUPCNT
For Ip = 0 To LNUPCNT - 1
Jp = LNUPCNT - 1 - Ip
0
