【Word VBA】迷路描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 迷路描画マクロ()
Const MAZEXCNT = 12 '迷路横方向マス数
Const MAZEYCNT = 12 '迷路縦方向マス数
'
Const MAZELEFT = 80 '迷路描画開始位置
Const MAZETOPP = 60 '迷路
'
Const MAZEWIDT = 240 '迷路幅
Const MAZEHEIG = 240 '迷路高
'
Const MAZEWCOL = vbBlue '迷路壁線色
Const MAZEWWEI = 1.5 ' 太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer, Lp As Integer
Dim intGrWd As Integer, intGrHe As Integer, intXp As Integer Dim intYp As Integer
Dim intMzDt(MAZEXCNT - 1, MAZEYCNT - 1, 2) As Integer
Dim intRn As Inte
0
