如何解决如何在 VBA 中单击更改形状颜色?
我希望在单击它时在 excel 中更改形状的颜色。 但我是 VBA 新手,不知道如何为此编写代码。 任何方法将不胜感激。谢谢
尼古拉斯
解决方法
你看起来很新,不知道社区规则......我现在会尝试帮助你(仅),但请记住你必须知道how to ask!
- 将此代码复制到标准模块中:
Sub MyShape_Click()
Dim sh As Shape
Set sh = ActiveSheet.Shapes(Application.Caller)
If sh.Fill.ForeColor.RGB = RGB(255,0) Then
sh.Fill.ForeColor.RGB = RGB(0,255)
Else
sh.Fill.ForeColor.RGB = RGB(255,0)
End If
End Sub
- 右键单击讨论中的形状并选择
Assign Macro...
。在打开的窗口中,您应该搜索并选择上面的子宏名称 (MyShape_Click)。按 OK 并测试解决方案。它首先将形状着色为红色,然后交替着色为蓝色和红色。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。