excel - 新 Visio 实例的性能问题

Question

我想从 excel 中启动一个新的 Visio 实例并执行一些代码。这很好用，但是执行代码比直接在 visio 宏中执行代码要长约 100 倍。

视觉 2003

Dim visio_app As New Visio.Application
Dim doc As Visio.Document, pg As Visio.page

Set doc = visio_app.Documents.Open(.......)
Set pg = visio_app.ActivePage

'Performance problem runing this methode
delete.doDeleteDeleted visio_app, pg

......

当我直接在 visio 中启动代码时没有性能问题

delete.doDeleteDeleted Application, Application.ActivePage

有人知道如何解决吗？

感谢您的帮助！

Answer 1

我已经找到了解决方法。我创建了一个 visio 文件，其中包括 doDeleteDeleted 方法和一个执行 doDeleteDeleted 的运行子程序。然后我使用 visio_app。ExecuteLine (....) 执行 Visio 文件中的代码。这行得通，但它没有吸引力