【Word VBA】ジオメトリー柄描画マクロ其の三▽ソースコード
Option Explicit
Option Base 0
'
Public Sub ジオメトリー柄描画マクロ其の三()
Const GEOMLEFT = 100 '描画開始位置X
Const GEOMTOPP = 110 ' Y
'
Const GEOMCOLS = 7 '横/描画数
Const GEOMROWS = 4 '縦/描画数
'
Const GEOMPRAT = 0.75 'ポリライン倍率
Const GEOMVPIT = 35 * GEOMPRAT '横-間隔
Const GEOMHPIT = 60 * GEOMPRAT '縦-間隔
Const GEOMREVI = -20 * GEOMPRAT '反転位置補正
'
Const GEOMLNCL = &HE22B8A '線の色(Blue Violet)
Const GEOMLNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer, Mp As Integer
0