我要在选择形状(此处为圆形)并单击按钮后触发选择颜色的颜色更改。
例如,如果我单击红色按钮,则形状背景颜色变为红色。
在下面的代码中,我尝试将所选形状的背景颜色更改为红色,但出现错误消息:不受此对象管理的属性或方法
Sub fillColorRed()
With Selection
.ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub
如何解决? 同样,我经常遇到此错误,我不知道如何避免此类错误。 感谢您的帮助。
答案 0 :(得分:2)
以下代码对我有用。它检测选定的形状。注意,必须选择一个形状,否则会出错。
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(106, 208, 152)
.Transparency = 0
.Solid
End With