【Word VBA】歯車描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 歯車描画マクロ()
Const GEARXPOS = 180 '歯車中心位置 X
Const GEARYPOS = 160 ' Y
Const GEARRADI = 100 '歯車の半径
Const GEARCONT = 20 '歯車の歯数
Const GEARHEIG = 15 '歯車の歯の高さ
Const GEARTOPP = 0.7 '歯の頭部比率
Const GEARDIVI = 3 '歯面の傾き
Const GEARLNWT = 1.5 '描画線の太さ
Const GEARHORA = 20 '歯車の穴の半径
'----------------------------------------------------------------------
Dim Ip As Integer, intAng As Integer, dblRd As Double
Dim intXp(1) As Integer, intYp(1) As Integer, intAg(2) As Integer
Dim lngCl As Long
'
dblRd = (4 * Atn(1)) / 180
0
