Question

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

红色背景的所有内容都应更改为黑色背景

红线颜色的所有内容都应改为黑线颜色

红色字体颜色的所有内容都应更改为蓝色字体颜色

这可以用宏吗？

我尝试了几种东西，但这些都是废话，最后我不能改变颜色，也不能得到形状的颜色来检查它。

使用的形状都是带有圆形边框和连接器的标准矩形。 但这不应成为问题的重点。

Answer 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和更新版本出现问题时，因为带有红色线条/填充/字体的形状可以使用主题。在这种情况下，在形状表单元格中，您可以找到 THEMEGUARD（RGB（255,0,0））等值您也可以阅读此帖子VBA Code for Shape Color Changes on Double Click

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

1 个答案: