vba - 鼠标悬停时如何更改 MS PowerPoint 中的图像

Question

在 PPT 中鼠标悬停时，我需要帮助来更改图像。幻灯片上有 3 个答案。https://prnt.sc/tzulzc 将鼠标悬停在图像上以选择正确答案时，我想将图像更改为另一个图像，或者只是更改颜色，以便用户知道他/她可以选择它。然后当再次将鼠标移出时，它会回到以前的图像。在那种形状而不是图像的情况下，我可以在下面的链接中获得帮助。 https://www.brightcarbon.com/blog/supercharging-powerpoint-interactive-presentations-with-vba-part-2/ 但是我无法得到准确的结果，因为我将它应用于分组形状。我确实尝试在网上找到一些东西，但一无所获。我希望有人给我一个想法。谢谢你。

标签： vbapowerpoint

Answer 1

当指针从 NotOverShape 移动到 OverShape 时，MouseOver 事件仅触发一次（我正在编造这些术语……它们不是常量或属性，除了概念上的）。

当鼠标离开形状时，该事件不会触发。

您可以做的是在您正在使用的真实形状后面添加另一个（100% 透明）形状，并且稍微大一点。现在，当鼠标移入真实形状时，它会越过“假”形状并触发鼠标悬停。同样，当鼠标移出真实形状时，也会发生同样的事情。

附加到虚假形状的鼠标悬停宏可以切换全局布尔值，例如 InBound。如果 InBound 为真，则执行 {whatever you need to} 或如果为假，{撤消您所做的一切}。