当鼠标光标悬停在 Powerpoint 中时为 gif 制作动画

Question

我想知道是否有任何方法可以在 Powerpoint 2010 VBA 中编写一个小程序，当鼠标光标悬停在 gif 上时，该程序可以为 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。