Vba 替代文本不删除

我试图创建一种效果，以便在滚动条形图时，该条形图高亮显示，数据点通过替代文本显示。为此，我将一个形状直接覆盖在每个条上，并使用mouseover事件运行以下模块。问题是，当我不尝试删除重置时的替代文本时，模块工作正常。当我尝试在重置时删除替代文本时，重置代码都不起作用，形状保持透明度=0。我已经注释掉了模块alt.text删除部分的代码。有没有想过为什么会这样？我在另一个项目中使用了非常类似的代码，它工作得很好。。。这是个谜！提前谢谢

Sub highlight (sh As shape)
    If Not sh.Name = "reset" Then
        Set sl = sh.Parent
        Dim shp As shape
        With sh
            .Fill.Transparency = 0
        End With
        For Each shp In sl.Shapes
            If shp.Name = sh.Name Then
                With shp
                    .Fill.Transparency = 0
                    .TextFrame.TextRange.Text = shp.AlternativeText
                    .TextFrame.TextRange.Font.Size = 9
                    .TextFrame.TextRange.Font.Color.RGB = RGB(250, 250, 250)
                End With
            End If
        Next shp
    ElseIf sh.Name = "reset" Then
        Set sld = sh.Parent
        Dim shpe As shape
        For Each shpe In sld.Shapes
            If Not shpe.Name = "reset" Then
                With shpe
                    .Fill.Transparency = 1
                    '.TextFrame.TextRange.Text = ""
                End With
            End If
        Next shpe
    End If
End Sub