Option Explicit
'
Dim Shape1 As Shape
Dim Top1 As Single
Dim Shape2 As Shape
Dim toRight1 As Long
'
Private Sub CommandButton2_Click() 'OK'
    Unload Me
End Sub

Private Sub OptionButton1_Change()
Top1 = 150 ' âûñîòà ëèíèè ÑÈ èëè Ýòàëîí
If OptionButton1.Value = True Then
ActiveSheet.Label1.Caption = "êîðîòêîå"
toRight1 = 80
Call ChangShapeLine1
End If
End Sub

Private Sub OptionButton2_Change()
Top1 = 150
If OptionButton2.Value = True Then
ActiveSheet.Label1.Caption = "äëèíîå"
toRight1 = 100
Call ChangShapeLine1
End If
End Sub

Private Sub ChangShapeLine1()
For Each Shape1 In ActiveSheet.Shapes
If Top1 = Shape1.Top Then
   Shape1.Delete
End If
Next Shape1
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, toRight1, Top1, 300, Top1).Select
End Sub