我想从excel启动一个新的Visio实例并执行一些代码。这很好,但是执行代码比在visio宏中直接执行代码要花费大约100倍的时间。Visio 2003Dim doc As Visio.Document, pg As Visio.page
Set doc= visio_app.Documents.Open(.......)Set pg = visio_
使用excel收集所有数据,并用visio形状绘制我们的资产网络图,这是非常酷的。但有一件事对我们来说非常重要,在使用这个工具的情况下,我们希望它们之间的双向连接能够在excel中进行更改(并且visio可以识别),我们希望在visio中更改形状数据(并将其写到excel中)。If shp.SectionExists(Visio.visSectionAction, Visio.visExistsAnywhere) <> 0 Then
For iRow= 0 To shp.Row