我想改变一个形状的颜色在Excel中点击它。但我是新来的，不知道如何编写代码。任何方法将不胜感激。
xesrikrc1#
1.在标准模块中复制以下代码：
Sub MyShape_Click() Dim sh As Shape Set sh = ActiveSheet.Shapes(Application.Caller) If sh.Fill.ForeColor.RGB = RGB(255, 0, 0) Then sh.Fill.ForeColor.RGB = RGB(0, 0, 255) Else sh.Fill.ForeColor.RGB = RGB(255, 0, 0) End IfEnd Sub
Sub MyShape_Click()
Dim sh As Shape
Set sh = ActiveSheet.Shapes(Application.Caller)
If sh.Fill.ForeColor.RGB = RGB(255, 0, 0) Then
sh.Fill.ForeColor.RGB = RGB(0, 0, 255)
Else
sh.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
End Sub
字符串1.右键单击讨论中的形状并选择Assign Macro...。在打开的窗口中，您应该搜索并选择上面的Sub宏名称（MyShape_Click）。按OK并测试解决方案。它首先会将形状着色为红色，然后交替使用蓝色和红色。
Assign Macro...
1条答案
按热度按时间xesrikrc1#
1.在标准模块中复制以下代码：
字符串
1.右键单击讨论中的形状并选择
Assign Macro...。在打开的窗口中，您应该搜索并选择上面的Sub宏名称（MyShape_Click）。按OK并测试解决方案。它首先会将形状着色为红色，然后交替使用蓝色和红色。