【Word VBA】三角形模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 三角形模様描画マクロ()
Const TANGLEFT = 110 '描画開始位置X
Const TANGTOPP = 100 ' Y
'
Const TANGOSIZ = 40 '外側三角形サイズ
Const TANGISIZ = 20 '内側三角形サイズ
Const TANGCREV = 1.5 '内側三角形補正
'
Const TANGCOLS = 10 '横/描画数
Const TANGROWS = 6 '縦/描画数
'
Const TANGLNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim intDht(1) As Integer, BlnUpD As Boolean
Dim lngCol(2) As Long, sngHpW As Single
'
lngCol(0) = RGB(1
0