在PowerPoint中改变鼠标Hover上形状颜色的宏
在PowerPoint中改变鼠标Hover上形状颜色的宏
提问于 2015-10-06 08:02:11
在PowerPoint中使用VBA可以改变鼠标悬停时的形状颜色吗？
我尝试使用animations+trigger创建同样的效果，但需要单击。然而，我想改变形状的颜色，因为我悬停鼠标在它之上，并改变它回到原来的颜色，因为我悬停鼠标到下一个形状。这是可能的吗？
提前谢谢。
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-10-06 10:33:22
通过一种黑客方法来克服PowerPoint不支持鼠标退出事件的事实，这是可能的。你可以做的是写一个鼠标对宏，如下所示，以改变颜色：
Option Explicit
Public myShape as Shape ' Global reference to mouse over shape
Sub MouseOver(oShp As Shape)
Set myShape = oShp
With oShp
' Change the properties you need here
End With
End Sub通过插入/操作/鼠标操作/运行宏将其分配给形状
接下来，这是黑客为没有鼠标出事件，添加一个矩形形状到您的幻灯片的底部层。将填充透明度设置为100%，并为其鼠标越界事件分配以下宏：
Sub MouseOutHack()
With myShape
' Reset the properties you need here
End With
End Sub现在，当你把鼠标移动到你的形状上时，它的属性会改变，当你把它移出形状时，看不见的背景形状将触发你选择的属性的重置。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/32964688
复制相关文章
相似问题
腾讯云开发者
