【Word VBA】雷紋模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 雷紋模様描画マクロ()
Const THUNLEFT = 100 '描画開始位置Ｘ Const THUNTOPP = 80 ' Ｙ Const THUNMAGN = 2 '描画倍率
Const THUNCOLS = 3 '横描画数
Const THUNROWS = 5 '縦描画数
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim varPos As Variant, lngCol As Long
Dim sngBas() As Single, sngDat() As Single
'
varPos = Array(7, 7, 8, 7, 8, 5, 5, 5, 5, 9, 10, 9, _
10, 3, 3, 3, 3, 11, 12, 11, 12, 1, 1, _
0
