Question

我要在选择形状（此处为圆形）并单击按钮后触发选择颜色的颜色更改。

例如，如果我单击红色按钮，则形状背景颜色变为红色。

在下面的代码中，我尝试将所选形状的背景颜色更改为红色，但出现错误消息：不受此对象管理的属性或方法

Sub fillColorRed()

 With Selection
    .ForeColor.RGB = RGB(255, 0, 0)
 End With

End Sub

如何解决？同样，我经常遇到此错误，我不知道如何避免此类错误。感谢您的帮助。

Answer 1

以下代码对我有用。它检测选定的形状。注意，必须选择一个形状，否则会出错。

  With Selection.ShapeRange.Fill
       .Visible = msoTrue
       .ForeColor.RGB = RGB(106, 208, 152)
       .Transparency = 0
       .Solid
   End With

如何在VBA中触发形状的填充颜色

1 个答案: