当鼠标光标在它上面时，在Powerpoint中为gif设置动画

Question

我想知道是否有任何方法可以在Powerpoint 2010 VBA中编写一个小程序，当鼠标光标悬停在它上面时动画gif。

Answer 1

不完全是这样，但是当你将鼠标放在另一个形状上时，你可以编写一个使一张图片可见的宏。

因此，添加任何类型的形状，例如，它可能是动画gif的非动画版本。在鼠标悬停的运行宏：ShowMe

上为其指定一个动作设置

首先，将其添加到您的演示文稿中：

Sub ShowMe()
' Edit this to change the slide number as needed and to 
' change "Picture 1" to the actual name of the animated gif
ActivePresentation.Slides(1).Shapes("Picture 1").Visible = True
End Sub

然后使用选择窗格使受影响的gif不可见。

您可以在这两个形状后面放置一个略大的形状，并将鼠标悬停动作设置为宏HideMe，它与ShowMe相同但设置为.Visible = False

当光标悬停在ShowMe触发器形状上时，anigif变为可见;当光标离开gif时，它会落在HideMe形状上，触发第二个宏并再次隐藏GIF。