小吳 VBQA 程式設計討論

請問各位高手,我想在EXCEL中畫有箭頭的線, 為何會出現"指定值超出範圍"的錯誤訊息呢??
Dim DataToExcel As New Excel.Application

DataToExcel.Workbooks.Add
DataToExcel.Worksheets("Sheet1").Activate
With DataToExcel.ActiveSheet
　　　.Shapes.AddLine(87#, 52.8, 405#, 120.6).Select
　　　Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
　　　Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
　　　Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
　 End With
　 DataToExcel.ActiveSheet.SaveAs FileName:="c:\aaa"
　 DataToExcel.ActiveWorkbook.Close
　 DataToExcel.Application.Workbooks.Close
　 Set DataToExcel = Nothing

錯誤訊息會出現在 Selection 那三行, 不知為那裡寫錯了,敢請各位
高手教教我,謝謝。