【Word VBA】らせん描画マクロ▽ソースコード

Option Explicit

Option Base 0

Public Sub らせん描画マクロ() 

    Const HELILFT = 100　　　　　　         'らせん描画位置Ｘ

    Const HELITOP = 100 　　　　　　　　 '                     Ｙ

    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(msoShapeArc, _

             HELILFT, HELITOP + HELIPIT * Ip, HELIWID, HELIHEI)

                .Line.Visible = True

                .Line.ForeColor.RGB = lngCl       '←線色

                .Line.Weight = HELIWET           '←線の太さ

                .Adjustments(1) = 90: .Adjustments(2) = 270

         End With

         With ActiveDocument.Shapes.AddShape(msoShapeArc, _

               HELILFT, HELITOP + HELIPIT * (Ip + 1), HELIWID,  _

                            HELIHEI - HELIPIT)

                .Line.Visible = True

                .Line.ForeColor.RGB = lngCl        '←線色

                .Line.Weight = HELIWET            '←線の太さ

                .Adjustments(1) = 270: .Adjustments(2) = 90

         End With

    Next Ip

End Sub