在PowerPoint中鼠标悬停时更改形状颜色的宏

Question

使用PowerPoint中的VBA可以更改鼠标悬停时的形状颜色吗？

我尝试使用动画+触发器创建相同的效果，但它需要点击。不过，我想将鼠标悬停在其上方时更改形状颜色，并将鼠标悬停到下一个形状时将其更改回原始颜色。这有可能实现吗？

在此先感谢。

Answer 1

这可以用黑客方法来克服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 

现在，当你在你的形状移动鼠标，它的属性会发生变化，当你将它移出形状，不可见的背景形状将触发重置您选择的属性。