すべてのカテゴリ

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 BA