Vba 如何在ppt幻灯片中模拟web的悬停效果

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

所以有一个悬停在所说的元素上，它会增长一点，我让它在鼠标经过它时运行这个宏，到目前为止还不错，但是我如何让它运行另一个宏，当鼠标离开它时，它会减少它

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

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

起初，我的想法是在它周围放置一个形状，它没有填充或边框，当鼠标经过它时会运行，但后来我想，当我想首先将鼠标悬停在按钮上时，我必须先通过这个形状，在通过悬停效果增加之前先减小它

你的想法是对的。将鼠标悬停宏指定给周围的形状，如下所示（aircode）：

---

如果PowerPoint只有ppMouseClick和ppMouseOver，那么这就是您需要处理的全部内容。

' 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