如何在ppt幻灯片中模拟网页的悬停效果

Question

我正在尝试模拟一些网站的悬停效果。。。这种效果是，当你将鼠标悬停在按钮上时，它会稍微增长，但当你离开它时。。。它会恢复到原来的大小。

因此，悬停在所述元素上，它稍微增长了一点，我让它在鼠标经过它时运行这个宏，到目前为止还不错，但我如何让它运行另一个宏，当鼠标离开它时减少它？

起初，我想到了在它周围放置一个没有填充或边界的形状，当鼠标经过它时，它就会运行，但后来我想，当我想先悬停在按钮上时，我必须先经过它，然后先缩小它，然后再通过悬停效果增加它。现在我想不出别的办法了，有什么想法吗？还是一个已经经历过这一切的人？

PD：我检查了ActionSettings，但它只有ppMouseClick和ppMouseOver，我想要的是当鼠标以某种方式离开该区域时它会运行。

Answer 1

起初，我想到了在它周围放置一个没有填充或边界的形状，当鼠标经过它时就会运行，但后来我想，当我想先悬停在按钮上时，我必须先遍历它，然后先缩小它，然后再通过悬停效果增加

你的想法是对的。将鼠标悬停宏分配给周围的形状，类似于以下内容(空气代码(：

' Globally ...
Dim bTriggered as Boolean
Sub SurroundingShape()

If bTriggered Then 
' mouse has passed over me already
' cursor is LEAVING the button area
Else
' mouse is entering the button area
Call MacroThatMakesTheButtonBounce
End If
bTriggered = Not bTriggered
End Sub