Excel宏运行时修改按钮外观无效问题求助

我在Excel中用一个形状作为按钮运行VBA宏，想要在宏执行时修改它的斜面（Bevel）和阴影（Shadow）效果，模拟按钮被按下的物理状态。但代码无法达到预期效果：

Sub Welcome_Begin()
    Sheets("Welcome").Select
    With ActiveSheet.Shapes.Range(Array("Welcome_Begin_Button"))
         .ThreeD.BevelTopInset = 0
         .ThreeD.BevelTopDepth = 0
         With .Shadow
             .OffsetX = 0
             .OffsetY = 0
         End With
     End With
     Application.ScreenUpdating = False

     < code goes here >

     Sheets("Welcome").Select
     Application.ScreenUpdating = True
     With ActiveSheet.Shapes.Range(Array("Welcome_Begin_Button"))
         With .Shadow
             .OffsetX = 1.2246467991E-16
             .OffsetY = 2
         End With
         .ThreeD.BevelTopInset = 1
         .ThreeD.BevelTopDepth = 0.5
     End With
End Sub

单独测试两段修改按钮外观的代码都能正常生效，但实际运行宏时，按钮不会在暂停屏幕更新前切换到按下状态。

问题根源是屏幕更新时机错误：修改按钮外观后立刻关闭屏幕更新，Excel还没来得及渲染视觉变化就进入后台执行。调整代码顺序并强制刷新即可解决：

• 修改按钮为按下状态后，添加强制刷新屏幕的代码，确保视觉变化生效；
• 优化形状引用方式，直接调用单个形状更高效。

调整后的代码示例：

Sub Welcome_Begin()
    Sheets("Welcome").Select
    ' 设置按钮为按下状态
    With ActiveSheet.Shapes("Welcome_Begin_Button")
         .ThreeD.BevelTopInset = 0
         .ThreeD.BevelTopDepth = 0
         .Shadow.OffsetX = 0
         .Shadow.OffsetY = 0
     End With
     ' 强制Excel刷新屏幕，让按下状态显示出来
     DoEvents
     ActiveWindow.SmallScroll Down:=0

     Application.ScreenUpdating = False

     ' 这里放置你的核心业务代码

     Application.ScreenUpdating = True
     ' 恢复按钮为原始状态
     With ActiveSheet.Shapes("Welcome_Begin_Button")
         .Shadow.OffsetX = 1.2246467991E-16
         .Shadow.OffsetY = 2
         .ThreeD.BevelTopInset = 1
         .ThreeD.BevelTopDepth = 0.5
     End With
End Sub

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