和Word一样,如:var
  MyVisio:Variant;uses
  ComObj;procedure TForm1.Button1Click(Sender: TObject);
begin
  MyVisio:=CreateOleObject('Visio.Application');
  MyVisioDoc:=MyVisio.Documents.Add('');
  //end;    各个对象的说明,在Visio的Help文件的Developer Reference的Automation Reference中均有详细解释,并有VBA范例程序。

解决方案 »

  1.   

    to enlightenment(阿明--进入准冬眠状态的超人):
    非常感谢您提的建议,其实我很想实现的方式是将Visio对象嵌入到我的Delphi程序中,因为我觉得Visio是个非常好的专业绘图工具,集成它的功能相信会有不错的效果!当然此观点值得探讨。
    您提的用法和帮助我原来都试过,可以实现,但要往下做就的花更多的工夫了。
    多谢!送上10分。留下10分等待继续讨论!哈!哈!别笑我小气!