我想把所有当前选定的形状放到一个数组中。然后,我想对数组进行排序,以便在数组中找到最顶部或最左边的形状。然后我想用那个形状作为我的起点,然后从那里对齐其他形状,一个固定的,已知的距离。我试着把这些形状放进这样的数组中:Dim arrShapes As Visio.Selection
Next i
我尝试创建没有类型规范的数组,指
我已经为Visio创建了外接程序,但我有一些与自定义面板相关的问题。为了在Visio中实现自定义面板,我使用了下一个链接中介绍的解决方案: How can you add a Custom Panel in a Visio 2013 add-in?按钮工作正常,我可以在任何TextBox中键入文本,但不能使用快捷方式(Ctrl+V)插入文本。当我键入Ctrl+V时,我的文本被插入到打开文档的新形状中
我想突出显示特定组对应的形状。下面的代码仅突出显示与活动页或主页一起分组的形状,而不突出显示与活动页中存在的组一起的形状。PCC_CA = InputBox("Enter PCC Band")
Dim shp As Visio.ShapeDim subshp As Visio.Shape
Dim connectorshape As <e