如何确保Excel工作表中Shape形状显示在ActiveX命令按钮上层

首先纠正一个认知误区：VBA中的Shape对象本身原生支持ZOrder方法，你之前注释的代码未生效，核心原因是ActiveX命令按钮属于OLE对象，和普通Excel Shape分属两个独立的渲染层级，默认ActiveX控件的渲染优先级高于普通Shape，单纯调整Shape的层级无法覆盖处于激活状态的ActiveX控件。
你可以选择以下两种方案解决： #

方案1：将提示框替换为同类型ActiveX控件（最稳定） #

同一层级的ActiveX控件之间可以通过ZOrder正常调整层级，操作步骤如下：

1. 从「开发工具」选项卡插入ActiveX类的Label控件，按需求设置好提示文本、背景色、边框样式，默认设置为Visible = False
2. 调整原有代码如下：

Private Sub CommandButton18_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Const lngSensitivity As Long = 5
    Dim i As Integer
    Static isShown As Boolean ' 避免重复触发
    
    With CommandButton18
        If (x > lngSensitivity And x < .Width - lngSensitivity And y > lngSensitivity And y < .Height - lngSensitivity) And Not isShown Then
            isShown = True
            With Worksheets("Sheet1").OLEObjects("Label1") ' 替换为你的Label控件名
                .Visible = True
                .ZOrder msoBringToFront ' 同层级控件可正常顶到最前
                ' 先停留1秒再淡出，方便用户阅读
                Application.Wait Now + TimeValue("00:00:01")
                For i = 1 To 200
                    .Object.BackColor = VBA.RGB(255, 255, 255) ' 可替换为你的背景色
                    .Object.ForeColor = VBA.RGB(0, 0, 0) ' 替换为你的文字颜色
                    .Fill.Transparency = i / 200
                    .Object.ForeColor.Fill.Transparency = i / 200
                    DoEvents
                Next
                .Visible = False
            End With
            isShown = False
        End If
    End With
End Sub

方案2：保留现有Shape，临时隐藏触发冲突的ActiveX按钮 #

如果不想改动现有提示框样式，可以在提示框显示前，临时将冲突的两个按钮设置为不可见，提示消失后再恢复显示：

Private Sub CommandButton18_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Const lngSensitivity As Long = 5
    Dim i As Integer
    Static isShown As Boolean
    
    With CommandButton18
        If (x > lngSensitivity And x < .Width - lngSensitivity And y > lngSensitivity And y < .Height - lngSensitivity) And Not isShown Then
            isShown = True
            ' 临时隐藏冲突按钮，替换为你实际的按钮控件名
            Worksheets("Sheet1").OLEObjects("CommandButtonX").Visible = False
            Worksheets("Sheet1").OLEObjects("CommandButtonY").Visible = False
            
            With Worksheets("Sheet1").Shapes("Rectangle 1")
                .ZOrder msoBringToFront
                .Fill.Transparency = 0
                .Line.Transparency = 0
                .TextFrame2.TextRange.Characters.Font.Fill.Transparency = 0
                
                Application.Wait Now + TimeValue("00:00:01")
                For i = 1 To 200
                    .Fill.Transparency = i / 200
                    .TextFrame2.TextRange.Characters.Font.Fill.Transparency = i / 200
                    .Line.Transparency = i / 200
                    DoEvents
                Next
            End With
            
            ' 恢复按钮显示
            Worksheets("Sheet1").OLEObjects("CommandButtonX").Visible = True
            Worksheets("Sheet1").OLEObjects("CommandButtonY").Visible = True
            isShown = False
        End If
    End With
End Sub

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