如何将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新手，不知道怎么写。请教个问题：sh:=sheet.shapes.addline(288,14.25,720,14.25);线我是画出来了，但我要如何改为箭头呢？如何定义线的粗细呢？线的颜色？
不懂的人路过，delphi 中的OLE操作下EXCEL
我自己搞定了。
参考代码：
uses Comobj;
var
vExcelApp: Variant;
begin
vExcelApp := CreateOleObject('Excel.Application');
// 显示Exc
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
要求能实现二人在同台电脑上对战的 不用太花哨 最好还加上人机对战的 急需 谁帮下忙啊呀!!!!!!!!
up
baidu，google
up
http://www.codepub.com/software/view-software-4061.html
网站上有
......
