Double Arrow Insert with VBA

Is it possible to insert a line with double arrows (an arrow at each end) using VBA. I want to insert a line similar to the Insert>Shapes>Double Arrow command in the ribbon.

On a related note, is it possible to make the end of the line a flat line. In other words, rather than a triangle or oval as the arrow head, can you have it be a short flat line that is perpendicular to the main line like this --------l ?

Thanks for the help.

This is the code I'm currently using to insert the line. I'd like it to have double arrows.

With Selection
        Set shp = ActiveSheet.Shapes.AddLine(.Left + .Width, .Top, .Left + .Width, .Top + .Height)
    End With
    
    With shp.Line
        .EndArrowheadStyle = msoArrowheadTriangle
        .EndArrowheadLength = msoArrowheadLengthMedium
        .EndArrowheadWidth = msoArrowheadWidthMedium
    End With

Sub a()
With Selection
        Set shp = ActiveSheet.Shapes.AddLine(.Left + .Width, .Top, .Left + .Width, .Top + .Height)
    End With
    
    With shp.Line
        .EndArrowheadStyle = msoArrowheadTriangle
        .BeginArrowheadStyle = msoArrowheadTriangle
        .EndArrowheadLength = msoArrowheadLengthMedium
        .EndArrowheadWidth = msoArrowheadWidthMedium
    End With
End Sub

Great. Thank you.