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

Question

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

Answer 1

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

Answer 2

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

Answer 3

shape调用excel的数据，用shape画

Answer 4

例如 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代码如何写呢？？？？？？？

Answer 5

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;

Answer 6

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

Answer 7

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