Sub Macro2()
Dim A#, X0#, X1#, X11#, Y0#, Y1#, Y11#
Dim ObjLine As Object
    
    pi = 4 * Atn(1)
'    Rotate = Not Rotate
    A = pi * 15 / 180
    Set ObjLine = ActiveSheet.Shapes("Линия 1")
    If GetLineXY(ObjLine, X0, Y0, X1, Y1) <> 0 Then Exit Sub
    X11 = (X1 - X0) * Cos(A) - (Y1 - Y0) * Sin(A) + X0
    Y11 = (X1 - X0) * Sin(A) + (Y1 - Y0) * Cos(A) + Y0
    X1 = X11
    Y1 = Y11
    ObjLine.Delete
    Drawline "Линия 1", X0, Y0, X1, Y1
    
    If GetLineXY(ActiveSheet.Shapes("Линия 3"), X0, Y0, X1, Y1) <> 0 Then Exit Sub
    k = (Y0 - Y1) / (X0 - X1) 'ОПРЕДЕЛЯЕМ ПАРАМЕТРЫ УРАВНЕНИЯ ПРЯМОЙ "ЛИНИЯ 3"
    b = Y1 - k * X1
    'Y11 = k * (X0 + X1) + Y1
        
    Set ObjLine = ActiveSheet.Shapes("Линия 2")
    If GetLineXY(ObjLine, X0, Y0, X1, Y1) <> 0 Then Exit Sub
    
    R = ((X0 - X1) ^ 2 + (Y0 - Y1) ^ 2) ^ 0.5 '  ВЫЧИСЛЯЕМ ДЛИНУ "ЛИНИИ 2"... то есть - радиус окружности
    'R = 150
    
    X3 = ((k * X1 + b) ^ 2 + R ^ 2) ^ 0.5 '  ВЫЧИСЛЯЕМ ИТОГОВУЮ КООРДИНАТУ
    Y3 = k * X3 + b
    
  '     X11 = 200
  '     Y11 = 200
    X1 = X11
    Y1 = Y11
    X0 = X3
    Y0 = Y3
    ObjLine.Delete
    Drawline "Линия 2", X3, Y3, X11, Y11
End Sub

Function GetLineXY(ByRef ObjLine As Object, ByRef X0 As Double, ByRef Y0 As Double, ByRef X1 As Double, ByRef Y1 As Double) As Integer
    On Error GoTo error1
    With ObjLine.DrawingObject
        If .ShapeRange.HorizontalFlip Then
            X0 = .Left + .Width
            X1 = .Left
        Else
            X0 = .Left
            X1 = .Left + .Width
        End If
        If .ShapeRange.VerticalFlip Then
            Y0 = .Top + .Height
            Y1 = .Top
        Else
            Y0 = .Top
            Y1 = .Top + .Height
        End If
    End With
    Exit Function
error1:
   GetLineXY = Err.Number
End Function

Sub Drawline(ByVal objName As String, ByVal X0 As Double, ByVal Y0 As Double, ByVal X1 As Double, ByVal Y1 As Double)
    Set ObjLine = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, X0, Y0, X1, _
        Y1)
        ObjLine.Name = objName
    With ObjLine.Line
   '     .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
   '     .ForeColor.TintAndShade = 0
   '     .ForeColor.Brightness = 0
   '     .Transparency = 0
   '     .Visible = msoTrue
        .Weight = 3
        .BeginArrowheadStyle = msoArrowheadOval
        .EndArrowheadStyle = msoArrowheadOval
    End With

End Sub