【Word VBA】山路文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 山路文様描画マクロ()
Const MTRDLEFT = 80 '描画開始位置Ｘ
Const MTRDTOPP = 90 ' Ｙ
'
Const MTRDSWID = 30 '描画幅
Const MTRDSHEI = 12 '描画高さ
'
Const MTRDHSPC = 12 '縦-間隔
Const MTRDCOLS = 8 '横/山の数
Const MTRDROWS = 12 '縦/描画数
'
Const MTRDLNWE = 3.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim sngPol(MTRDCOLS * 2, 1) As Single
Dim lngCol As Long
'
lngCol = RGB(34, 139, 34) '←線色
For Jp = 0 To MTRDROWS - 1
intDyp
0
