替代文本不删除

Question

我正在尝试创建一个效果，以便当我滚动条形图时，条形图会突出显示，数据点将通过替代文本显示。我这样做是通过直接在每个条形图上覆盖一个形状并使用鼠标悬停事件来运行以下模块。问题是当我没有尝试删除＆＃34;重置时的替换文本时，模块工作正常。＆＃34;当我尝试在重置时删除替代文本时，没有重置代码工作，并且形状保持透明度= 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