有没有办法在活动标签上使用鼠标悬停功能来弹出gif？

Question

如标题所示，我想要一个带有文本的形状（想一想流程图），然后在其上制作一个活动标签。因此，当人们将鼠标移到标签上时，会弹出一个GIF。然后，当他们将鼠标移出标签时，它将消失。

到目前为止，我最接近的是这个（但这可能是完全错误的）：

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As 
Integer, ByVal X As Single, ByVal Y As Single)


Sheet1.Shapes("situation.GIF").Visible = True


End Sub

任何建议或帮助都将是惊人的，如果您有任何疑问，请随时提出来！

致谢