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