如何解决在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 举报,一经查实,本站将立刻删除。