如何在鼠標懸停到VBA時啓用突出顯示？

如何在鼠標移入VBA時啓用突出顯示？我在VBA中編寫了一個marco，在創建一個新的形狀後，應該在鼠標懸停時啓用該形狀。也許有顏色？如何在鼠標懸停到VBA時啓用突出顯示？

謝謝 argonist

2013-04-22 argonist

我找到了簡單的方法。

myshape.ActionSettings(ppMouseOver).AnimateAction = msoTrue

但我不能改變顏色和線條大小。這對我來說就夠了。謝謝。

來源

2013-04-23 12:39:16 argonist

您的宏將需要在特定事件上運行。所以在Powerpoint中你有選擇，如：

的MouseDown
的MouseMove
的MouseUp

您可以按F1鍵，確切地告訴你哪些事件做什麼。
在VBA中不存在名爲'MouseOver'的事件，因此您需要即興發揮，例如使用'MouseMove'事件將鼠標懸停在其上時更改顏色，然後可能會將頁面的'MouseMove'事件更改回當您將鼠標移動到其他位置時的默認顏色。
你應該能夠找到所有在下拉列表中的對象，這些事件在Visual Basic窗口

另一種選擇，而不是使用VBA是玩弄PPT課件動畫和特效可以讓你在同一結果。

來源

2013-04-23 09:21:18 Eddie

那就是例如添加很多東西好方法改變顏色，但實施起來很複雜。 – argonist 2013-04-23 12:41:06

嘗試這一項上的ActiveX圖片附帶的幻燈片（顯示模式中運行的代碼）

'zmien_w_trybie_prezentacji - VBATools.pl 
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
Call kolor2(Image1) 
End Sub 

Sub kolor2(osh As Image) 
    If osh.BackColor = 255 Then _ 
     osh.BackColor = 13998939 Else _ 
     osh.BackColor = 255 
End Sub

來源

2014-03-19 15:08:13

如何在鼠標懸停到VBA時啓用突出顯示？

回答

相關問題