如何用VBA设置Excel中命令按钮的背景色？

你遇到的报错原因很明确：通过ws.Buttons.Add创建的是表单控件（Form Control）按钮，这类Button对象并不具备BackColor属性，直接调用该属性就会触发“运行时错误438”。

以下是两种适配你现有代码的解决方案：

方案1：改用ActiveX控件按钮 #

ActiveX命令按钮原生支持BackColor属性，修改后的代码如下：

Sub CriarBotaoLaranja()
    Dim ws As Worksheet
    Dim btn As OLEObject ' 类型改为OLEObject，对应ActiveX控件
    
    Set ws = ThisWorkbook.Sheets("Worksheet1")
    
    ' 添加ActiveX命令按钮
    Set btn = ws.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
                                Left:=100, Top:=100, Width:=120, Height:=50)
                                
    ' 设置按钮标题与背景色
    btn.Object.Caption = "Name in the button"
    btn.Object.BackColor = RGB(255, 165, 0) ' 设置为橙色
End Sub

注：ActiveX控件的属性需要通过Object子对象访问，比如btn.Object.Caption、btn.Object.BackColor。

方案2：保留表单控件，通过Shape对象设置填充色 #

表单控件本质是工作表中的形状，可通过关联的Shape对象设置外观：

Sub CriarBotaoLaranja()
    Dim ws As Worksheet
    Dim btn As Button
    Dim btnShape As Shape
    
    Set ws = ThisWorkbook.Sheets("Worksheet1")
    
    Set btn = ws.Buttons.Add(100, 100, 120, 50)
    btn.Caption = "Name in the button"
    
    ' 获取按钮对应的Shape对象，设置填充色
    Set btnShape = ws.Shapes(btn.Name)
    btnShape.Fill.ForeColor.RGB = RGB(255, 165, 0) ' 橙色填充
    btnShape.TextFrame.Characters.Font.Color = RGB(255, 255, 255) ' 可选：设置文字为白色，提升可读性
End Sub

内容的提问来源于stack exchange，提问作者Hack3rX