You can use the built-in visual basic functions;
Line, Polyline, Rectangle, Curve, etc.
Here are some examples:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim triArray(1 To 4, 1 To 2) As Single
triArray(1, 1) = 25 'Assign values in code, Or
triArray(1, 2) = 100...