[archive] create line in excel

[Migrated content. Thread originally posted on 12 February 2007]

Can someone please help me translate the next macro to create 2 lines in excel.
Thanks.

ActiveSheet.Shapes.AddLine(275.25, 124.5, 275.25, 282.75).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Flip msoFlipVertical
ActiveSheet.Shapes.AddLine(275.25, 281.25, 375#, 281.25).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium