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 If
End Sub

字符串
1.右键单击讨论中的形状并选择Assign Macro...。在打开的窗口中，您应该搜索并选择上面的Sub宏名称（MyShape_Click）。按OK并测试解决方案。它首先会将形状着色为红色，然后交替使用蓝色和红色。