Application.Windows.ItemEx("绘图4").Activate
    Application.ActiveWindow.Page.Drop Application.Documents.Item("ANNOT_M.VSS").Masters.ItemU("Oval callout"), 68.897638, 59.055118   Application.ActiveWindow.Selection.Move 39.370079, -3.937008   dim xx as Visio.cell已安装visio的一些ActiveX组件了
前3句的Application 在delphi可以打成 DrawingControl1.Window.Application.xxx 后面的代码可以照抄
问题1: 第1句中 ItemEx参数在delphi中需要用[]来写的,而且不能填除数字以外的索引,而delphi里面看的类型是    property ItemEx[CaptionOrIndex: OleVariant]: IVWindow read     ItemEx[OleVariant('xx')]均全部出错问题2: 第2句中的 xxx.page  的page是OleVarIant类型..没有后面的Drop方法...即使某个接口有Drop这个方法,也不能从Ole型转过去 问题3: 第3句的Move方法在delphi中有3个参数........晕倒问题4: 请教一下在delphi中那个Visio.cell是什么...
新人分不多- - 还请希望各位高人解决解决问题,感谢一下