高分求助！如何在调用的execel上画线呀（画园）！

[zhou79]

哪位ggjj知道通过delphi如何在调用的execel上面画线（包括画直线或者画圆）？
这里不胜感谢！！！！！！！

[qiujsh]

在EXcel里手工画一下，录制宏，把宏拷到delphi里改改

[zhou79]

可以举个例子吗？
VBA宏可以直接在delphi里执行吗？

[darkliu]

shape

调用excel的数据，用shape画

[zhou79]

不太清楚！！可以举个例子吗？？
谢谢了！！

[zhou79]

例如 VBA代码为
ActiveSheet.Shapes.AddLine(282.75, 317.25, 391.5, 317.25).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium

转化为delphi代码如何写呢？？？？？？？

[zhou79]

为什么没有人解答呢？？？？？？？？
自己顶一下吧！！！！！！！！！！！！！！！！！1

[王集鹄]

uses Office2000;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
vLine: OleVariant;
vSelection: OleVariant;
vActiveSheet: OleVariant;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := True;
ExcelApplication1.WorkBooks.Add(EmptyParam, 0);
ExcelApplication1.ActiveWorkbook;
vActiveSheet := ExcelApplication1.ActiveSheet;

vLine := vActiveSheet.Shapes.AddLine(282.75, 317.25, 391.5, 317.25);
vLine.Select;
vSelection := ExcelApplication1.Selection[0];

vSelection.ShapeRange.Line.EndArrowheadStyle := msoArrowheadTriangle;
vSelection.ShapeRange.Line.EndArrowheadLength := msoArrowheadLengthMedium;
vSelection.ShapeRange.Line.EndArrowheadWidth := msoArrowheadWidthMedium;
end;

[paranoia190]

好象很久以前就问过了
我顶

[bxh2dai]

就象一楼说的，在EXcel里手工画一下，录制宏，把宏拷到delphi里改改
我以前做DELPHI操作WORD方面的时候，也是这么搞的

[zhou79]

谢谢大家，我原来没有引用Office2000库，所以很多东西用不了！！！
这回可以了！！！！！