我想在Visio中迭代一些形状,我有一个有效的解决方案,但这个解决方案有点低,因为有很多形状(可能有一千个,我只对其中的二三十个感兴趣): Dim shp As Visio.ShapeSet pagShape = Visio.ActivePage.PageSheet
If"), name) = 0 Then
我需要有一个visio形状的名称更改为用户输入的值时,形状被放到页面上。我已经创建了两个形状数据字段: Name和State。这样做的原因是,形状数据字段"state“可以使用分配给”Name“字段的值以编程方式进行更改,如以下代码所示:Dim vPag As Visio.PageSet vPag = Visio.ActivePage
Dim shp As Visio.s