VISIO VBA更改组中线条的颜色

Question

这里是新手问题。

在visio项目中，我想编写VBA来快速更改原理图中线条的适当性。到目前为止，它是可行的，除非行在组中。有什么主意吗？

这是我当前正在使用的代码：

Dim shp As Visio.Shape
For Each shp In Visio.ActiveWindow.Selection

     '// Add cell and formula/results here:
     shp.Cells("linecolor") = 0

Next shp
Set shp = Nothing

End Sub

谢谢！

Answer 1

对于每个形状，您需要检查组中形状的数量，即。

shp.shapes.count> 0

然后遍历那些形状，并在那里设置线条颜色。

对于每个shp2形状的shp2

当然，这些形状中的每一个也可以是一个组，因此这里需要一个递归例程。