【Word VBA】毘沙門亀甲文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 毘沙門亀甲文様描画マクロ()
Const BTTLLEFT = 120 '描画開始位置X
Const BTTLTOPP = 110 ' Y
'
Const BTTLPSIZ = 10 'ピースサイズ
'
Const BTTLCOLS = 7 '横/描画数
Const BTTLROWS = 5 '縦/描画数
'
Const BTTLLNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim intDwd As Integer, intDht As Integer
Dim sngRnd As Single, sngAng As Single
Dim sngBas(12, 1) As Single, sngPol(12, 1) As Single
D
0