【Word VBA】ギザギザ丸描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub ギザギザ丸描画マクロ()
Const JAGGLEFT = 80 '描画開始位置Ｘ
Const JAGGTOPP = 80 ' Ｙ
'
Const JAGGCOLS = 4 '横/描画数
Const JAGGROWS = 3 '縦/描画数
'
Const JAGGVPIT = 60 '横/描画間隔
Const JAGGHPIT = 60 '縦/描画間隔
'
Const JAGGRAD1 = 28 '山の半径
Const JAGGRAD2 = 14 '谷の半径
'
Const JAGGCONT = 36 '山と谷の数
Const JAGGLNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intBxp As Integer, intByp As Integer
Dim intCxp As Integer, intCy
0
