【Word VBA】紗綾形文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 紗綾形文様描画マクロ()
Const SAYALEFT = 100 '描画開始位置 Ｘ
Const SAYATOPP = 80 ' Ｙ
Const SAYAPOLY = 0.1 'ポリライン描画倍率
'
Const SAYACOLS = 5 '描画数-横
Const SAYAROWS = 4 '描画数-縦
'
Const SAYALNWE = 2 '描画線の太さ
'
Const POLTOPID = 22 'ポリラインデータID
Const POLLEFID = 7 '(連結描画用)
Const POLLUPID = 25
Const POLRUPID = 18
Const POLLDPID = 4
Const POLRDPID = 11
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim varPoly As Variant
Dim
0
