Excel VBA通过宏插入表单控件按钮时出现"Expected Function or variable"错误的解决请求

我最近尝试用VBA宏创建表单控件按钮，参考了相关教程后写出了录制的宏，但运行时突然弹出"Expected Function or variable"错误，调试器直接指向Selection语句。排查后发现，虽然论坛说这个错误通常是存在同名Selection的宏导致，但我并没有这类宏，实在摸不着头脑。

先贴出我原来的宏代码：

Sub SunButton()
'
' Macro1 Macro
'
'
    ActiveSheet.Buttons.Add(964.2, 119.4, 139.2, 49.8).Select
    Selection.OnAction = "Sun"
    Selection.Characters.Text = "Sun"
    With Selection.Characters(Start:=1, Length:=3).Font
        .Name = "Calibri"
        .FontStyle = "Bold"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 32
        .Placement = xlFreeFloating
        .PrintObject = False
    End With
End Sub

问题根源与解决方案 #

1. 核心问题：避免依赖Selection，直接引用对象

录制的宏天生依赖Selection，但这个内置对象很容易和自定义的标识符（比如模块名、变量名）冲突——哪怕你没有同名宏，只要有个模块叫Selection，VBA就会混淆内置对象和自定义标识符，触发编译错误。

更稳妥的做法是把创建的按钮直接赋值给变量，全程通过变量操作，彻底规避Selection的潜在冲突：

Sub SunButton()
    Dim newBtn As Button
    ' 创建按钮并赋值给变量，跳过Selection步骤
    Set newBtn = ActiveSheet.Buttons.Add(964.2, 119.4, 139.2, 49.8)
    
    ' 通过变量设置按钮核心属性
    newBtn.OnAction = "Sun"
    newBtn.Characters.Text = "Sun"
    
    ' 设置字体样式
    With newBtn.Characters(Start:=1, Length:=3).Font
        .Name = "Calibri"
        .FontStyle = "Bold"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 32
    End With
    
    ' 注意：Placement和PrintObject是按钮的属性，不属于Font，要单独设置
    newBtn.Placement = xlFreeFloating
    newBtn.PrintObject = False
End Sub

2. 修复原代码的属性归属错误

原代码里把.Placement和.PrintObject放在了Font的With块中，这两个是按钮对象的属性，不是字体属性，即使没触发当前的编译错误，后续运行也会出问题，这也是录制宏常见的小瑕疵。

3. 排查潜在的命名冲突

如果修改后还是有问题，建议检查一下：

• 是否有模块命名为Selection
• 是否有自定义函数/变量名叫做Selection
  这些都会让VBA无法识别内置的Selection对象，从而触发相同的错误。

这种直接引用对象的写法不仅能解决当前的编译错误，还能让代码更易读、更稳定，避免后续因选中内容变化导致的意外问题。

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