PowerPoint VBA宏鼠标悬停和鼠标悬停

Question

我想在鼠标悬停时应用触发动画 我发现tutorial很有帮助，因此可以在鼠标悬停在按钮上时使动画发生，但是只有在鼠标再次悬停在按钮上时，动画才可以发生

我需要的动画如下所示： -将鼠标悬停在按钮上时，图像会出现 -当鼠标移出按钮时，图像消失 （无需再次将鼠标移到形状按钮上）

有人可以帮助我实现这一目标吗？

这是本教程中的VBA代码

Sub anim(oshp As Shape)
Dim osld As Slide
Set osld = oshp.Parent
'Note alter the name here to match the trigger shape
If osld.Shapes("Rectangle 7").ZOrderPosition = 1 Then
SendKeys ("{TAB}")
SendKeys ("{ENTER}")
Else
osld.Shapes("Rectangle 7").ZOrder (msoSendToBack)
End If
End Sub