如何在单元格的值更改时使用vba脚本显示gif，然后将其隐藏

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then '将"A1"替换为要监视更改的单元格范围
        If Target.Value = "某个特定的值" Then '将"某个特定的值"替换为触发显示GIF的条件
            ShowGIF
        Else
            HideGIF
        End If
    End If
End Sub

Private Sub ShowGIF()
    '将GIF图片的名称替换为实际插入的图片名称
    ActiveSheet.Shapes("图片 1").Visible = True
End Sub

Private Sub HideGIF()
    '将GIF图片的名称替换为实际插入的图片名称
    ActiveSheet.Shapes("图片 1").Visible = False
End Sub