在VBA上循环浏览形状时出现异常错误

问题描述

我试图编写一个简单的代码来遍历工作表上的所有形状并为每个形状上色。它工作完美。这是我使用的代码。

Sub Bblue()


Dim Shp As Shape
Dim Sh As Worksheet

Set Sh = ThisWorkbook.Worksheets(1)

For Each Shp In Sh.Shapes

Shp.Line.ForeColor.RGB = RGB(255,0)

Next Shp

End Sub

但是，当我尝试修改代码以遍历并更改每种形状的填充颜色时，会出现错误，并且无法正常工作。顺便说一下，我在线下载了文件。

这是错误： enter image description here

对于此代码：

Sub Bblue()


Dim Shp As Shape
Dim Sh As Worksheet

Set Sh = ThisWorkbook.Worksheets(1)

For Each Shp In Sh.Shapes

Shp.Fill.ForeColor.RGB = RGB(0,0)

Next Shp

End Sub

任何建议和建议将不胜感激

致谢

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

loops shapes