在 visio 中将所有红色形状和线条的颜色更改为黑色答案

【问题标题】：Change the color of all red shapes and lines to black in visio在 visio 中将所有红色形状和线条的颜色更改为黑色
【发布时间】：2017-09-20 23:20:54
【问题描述】：

您好，我正在尝试更改以下内容

所有红色背景都应该改为黑色背景

所有红色线条颜色都应改为黑色线条颜色

所有红色字体颜色都应改为蓝色字体颜色

这可以通过宏来实现吗？

我尝试了几种方法，但那都是无稽之谈，最后我无法更改颜色，也无法获取形状的颜色来检查它。

使用的形状都是相同的标准矩形，带有圆形边框和连接线。 但这不应该是问题的重点。

【问题讨论】：

到目前为止你尝试过什么代码？
您是否针对特定模具或模板中的特定形状（或多个形状）？
@braX 正如所说，这是无稽之谈。这只不过是获取所有元素，遍历它们并尝试从中获取一些信息。 没有成功
@JohnGoldsmith 只是矩形和连接器

标签： vb.net visio

【解决方案1】：

该代码可以提供帮助！

Sub ttt()  
Dim shp As Shape  
For Each shp In ActivePage.Shapes  
   If shp.Cells("FillForegnd") = 2 Then shp.Cells("FillForegnd") = 0  
   If shp.Cells("LineColor") = 2 Then shp.Cells("LineColor") = 0  
   If shp.Cells("Char.Color") = 2 Then shp.Cells("Char.Color") = 4  
Next  
End Sub

但在 2007 及更新版本中出现问题，因为线条/填充/字体的红色形状可以使用主题。在这种情况下，在 shapesheet 单元格中，您可以找到 THEMEGUARD(RGB(255,0,0))
之类的值你也可以阅读这个帖子VBA Code for Shape Color Changes on Double Click

【讨论】：