如何将VBA语句翻译成delphi语句
Sub aSmpLine()
Sheet1.Shapes.AddLine(100, 100, 180, 150).Name = "Line1"
With [line1].ShapeRange.Line
.Weight = 3
.DashStyle = msoLineSolid
.Style = msoLineThinThin
.Visible = True
.ForeColor.SchemeColor = 10
.BackColor.RGB = RGB(255, 255, 255)
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
End With
MsgBox "Will deleted!"
[line1].Delete
End Sub
请帮忙将以上EXCEL的VBA语句翻译成Delphi语句，急用，谢谢！
[解决办法]
没法直接翻译，就是画线画箭头吗，你自己写就是了，还有什么好翻译的
[解决办法]
不懂的人路过，delphi 中的OLE操作下EXCEL
[解决办法]
学习~~
不过OLE巨慢~~
