如何实现Excel工作表中鼠标悬停时发光的透明CommandButton？

错误原因 #

你碰到的Run-time error '438'，是因为工作表上的ActiveX CommandButton控件本身没有Glow属性——这个属性仅支持Excel的形状（Shape）对象，不支持MSForms系列的CommandButton控件。

解决方案：用Shape替代ActiveX按钮 #

工作表的形状（Shape）支持发光格式设置，能完美实现「初始透明+鼠标悬停发光」的需求，具体步骤如下：

1. 插入形状按钮

   • 点击Excel顶部菜单栏「插入」→「形状」，选矩形（或圆角矩形），拖到工作表上调整成按钮大小。
   • 右键形状→「重命名」，改成好识别的名字（比如HoverButton）。

2. 设置初始透明状态

   • 右键形状→「设置形状格式」：
     • 「填充」选「无填充」
     • 「轮廓」选「无轮廓」
       这样初始状态下形状完全透明，看不到任何痕迹。

3. 编写VBA代码实现悬停发光
   我们需要用类模块捕获形状的鼠标进入/离开事件：

   • 按Alt+F11打开VBA编辑器，右键工程→「插入」→「类模块」，把类模块命名为clsShapeEvents。
   • 在类模块中粘贴以下代码：

     Public WithEvents shp As Shape
     
     Private Sub shp_MouseEnter(ByVal Cancel As Boolean)
         ' 设置发光参数：半径15，浅蓝色发光
         shp.ShapeRange.Glow.Radius = 15
         shp.ShapeRange.Glow.Color.RGB = RGB(0, 191, 255)
     End Sub
     
     Private Sub shp_MouseLeave(ByVal Cancel As Boolean)
         ' 移除发光效果
         shp.ShapeRange.Glow.Radius = 0
     End Sub
     

   • 回到工作表模块（VBA编辑器左侧双击对应工作表），粘贴以下代码：

     Dim btnGlow As clsShapeEvents
     
     Private Sub Worksheet_Activate()
         ' 关联我们创建的形状，名字要和之前重命名的一致
         Set btnGlow = New clsShapeEvents
         Set btnGlow.shp = Me.Shapes("HoverButton")
     End Sub
     

4. 添加点击功能（可选）
   如果需要点击执行操作，右键形状→「指定宏」，新建宏并编写你的业务逻辑即可。

测试效果 #

回到Excel工作表，鼠标悬停在形状位置时会显示发光效果；鼠标移开后，发光消失，回到透明状态。

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