【Word VBA】ばね描画マクロ▽ソースコード

Option Explicit

Option Base 0

Public Sub ばね描画マクロ()

    Const BANELEFT = 100 　　　　　　　　　'ばね描画位置Ｘ

    Const BANETOPP = 90 '　　　　　　　　　　　　　　　 Ｙ

    Const BANEWIDT = 120                           'ばね幅

    Const BANEWEIG = 10                            'ばね太さ

    Const BANEPITC = 30                             'ばねピッチ

    Const BANEMAGI = 10                            'ばね描画余裕

    Const BANEPARA = 3.6                           'ばね斜め調整

    '

    Const BANECONT = 5                             'ばね巻き数

    '---------------------------------------------------------------------------

    Dim Ip As Integer, lngFcl As Long

    '

    lngFcl = RGB(169, 169, 169)                     'ばね色

    For Ip = 0 To BANECONT

          With ActiveDocument.Shapes.AddShape( _

                 msoShapeFlowchartTerminator,  BANELEFT,  _

                 BANETOPP + BANEPITC * Ip, BANEWIDT, BANEWEIG)

               .Fill.Visible = True

               .Fill.ForeColor.RGB = lngFcl

               .Line.Visible = True

               .Line.ForeColor.RGB = vbBlack          '←線色(輪郭)

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

         End With

         If Ip < BANECONT Then

            With ActiveDocument.Shapes.AddShape( _

                 msoShapeParallelogram,  BANELEFT + BANEMAGI,  _

                 BANETOPP + BANEPITC * Ip + BANEWEIG, _

                 BANEWIDT - BANEMAGI * 2, BANEPITC - BANEWEIG)

                .Fill.Visible = True

                .Fill.ForeColor.RGB = lngFcl

                .Line.Visible = True

                .Line.ForeColor.RGB = vbBlack         '←線色(輪郭)

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

                .Adjustments(1) = BANEPARA

            End With

        End If

    Next Ip

End Sub

蛇足

春（spring）なのに、心が弾むようなことは、無いですねー