【Word VBA】らせん描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub らせん描画マクロ() Const HELILFT = 100 'らせん描画位置X
Const HELITOP = 100 ' Y
Const HELIWID = 180 'らせん幅
Const HELIHEI = 60 'らせん高
Const HELIPIT = 15 'らせんピッチ
Const HELICNT = 10 'らせん巻き数
Const HELIWET = 1.5 '描画線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, lngCl As Long
'
lngCl = RGB(165, 42, 42) '←描画線色
For Ip = 0 To HELICNT - 1
With ActiveDocument.Shapes.AddShape(mso
0