VBA创建并格式化矩形命令按钮时第三行代码报错求助

错误原因分析 #

你的代码存在两个关键问题引发报错：

1. Range地址顺序错误：第一行的Range("H" & 5 & ":G" & 6)是反向列引用（H列在G列右侧），Excel虽会自动修正为G5:H6，但会导致后续获取的t.Width、t.Height逻辑混乱，甚至让AddShape创建形状失败，使得btn对象未正确初始化，进而在第三行访问btn.ShapeRange.Fill时触发错误。
2. 不必要的ShapeRange调用：Shapes.AddShape返回的是单个Shape对象，直接使用btn.Fill即可，ShapeRange多用于批量操作多个形状，单个形状调用它属于冗余操作，也可能引发对象访问异常。

修正后的代码 #

' 修正Range地址为左列到右列的正确顺序
Set t = wsJTO.Range("G" & 5 & ":H" & 6)    
Set btn = wsJTO.Shapes.AddShape(msoShapeRectangle, t.Left, t.Top, t.Width, t.Height)
' 直接操作Shape对象的Fill属性，去掉多余的ShapeRange
With btn.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(146, 208, 80)
    .Transparency = 0
    .Solid
End With
' 同理，直接操作Shape对象的ThreeD属性
With btn.ThreeD
    .BevelTopType = msoBevelArtDeco
    .BevelTopInset = 9
    .BevelTopDepth = 6
End With
btn.OnAction = "Module2.Selection_JTO"

额外验证点 #

• 确保wsJTO是已正确初始化的工作表对象（例如Set wsJTO = ThisWorkbook.Worksheets("目标工作表名")），避免因工作表对象未定义导致隐性错误。
• 确认Module2.Selection_JTO宏存在且语法正确，否则点击形状时会触发宏不存在的错误。

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