鼠标移到 VBA 时如何启用突出显示？答案

【问题标题】：How can I enable highlight when mouse over into VBA?鼠标移到 VBA 时如何启用突出显示？
【发布时间】：2013-04-22 09:58:42
【问题描述】：

当鼠标移到 VBA 时如何启用高亮显示？我在 VBA 中编写了一个宏，在创建新形状后，当鼠标悬停时，该形状应启用突出显示。也许有颜色？

谢谢氩气

【问题讨论】：

标签： vba powerpoint powerpoint-2010

【解决方案1】：

您的宏需要针对特定事件运行。因此，在 Powerpoint 中，您可以选择以下选项：

鼠标按下
鼠标移动
上鼠标

您可以按 F1 键来准确告诉您哪个事件做了什么。
在 VBA 中没有称为“MouseOver”的事件，因此您需要即兴发挥，例如当您将鼠标悬停在它上面时使用“MouseMove”事件来更改颜色，然后可能是页面“MouseMove”事件将其更改回默认颜色当您将鼠标移动到其他东西上时。
您应该能够在 Visual Basic 窗口中对象的下拉列表中找到所有这些事件

除了使用 VBA 之外，另一种选择是使用 powerpoints 动画和效果，这可能会得到相同的结果。

【讨论】：

这是添加许多东西的好方法，例如改变颜色，但实现起来很复杂。

【解决方案2】：

我找到了简单的方法。

myshape.ActionSettings(ppMouseOver).AnimateAction = msoTrue

但我无法更改颜色和线条大小。这对我来说已经足够了。谢谢。

【讨论】：

【解决方案3】：

在幻灯片中的 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

【讨论】：