在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 

現在，當你在你的形狀移動鼠標，它的屬性會發生變化，當你將它移出形狀，不可見的背景形狀將觸發重置您選擇的屬性。