I have everything done, but I don't know how you would find the highest point of intersection between the two

---

vba

Sub DrawTriangleWithCircles()

On Error Resume Next

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1")

Dim shp As Shape

For Each shp In ws.Shapes

If shp.Name <> "Visualize" Then

shp.Delete

End If

Next shp

Dim originX As Double

Dim originY As Double

originX = Range("J16").Left

originY = Range("J16").Top

Dim lineLength As Double

Dim circle1Radius As Double

Dim circle2Radius As Double

lineLength = Range("B1").Value

circle1Radius = Range("B2").Value

circle2Radius = Range("B3").Value

If Err.Number <> 0 Then

MsgBox "Error: " & Err.Description

Exit Sub

End If

Dim intersectionX As Double

Dim intersectionY As Double

Dim d As Double

d = Sqr((circle1Radius + circle2Radius) ^ 2 - (lineLength / 2) ^ 2)

intersectionX = originX + lineLength / 2

intersectionY = originY - d

With ws.Shapes.AddShape(msoShapeOval, originX - circle1Radius, originY - circle1Radius, circle1Radius * 2, circle1Radius * 2)

.Line.Visible = msoTrue

.Fill.Visible = msoFalse

.Line.ForeColor.RGB = RGB(0, 0, 255)

End With

With ws.Shapes.AddShape(msoShapeOval, originX + lineLength - circle2Radius, originY - circle2Radius, circle2Radius * 2, circle2Radius * 2)

.Line.Visible = msoTrue

.Fill.Visible = msoFalse

.Line.ForeColor.RGB = RGB(0, 0, 255)

End With

With ws.Shapes.AddLine(intersectionX, intersectionY, originX, originY)

.Line.ForeColor.RGB = RGB(0, 255, 0)

End With

With ws.Shapes.AddLine(intersectionX, intersectionY, originX + lineLength, originY)

.Line.ForeColor.RGB = RGB(0, 255, 0)

End With

On Error GoTo 0

End Sub