vba - 鼠标移到 VBA 时如何启用突出显示？

Question

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

谢谢氩气师

Answer 1

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

• 鼠标按下
• 鼠标移动
• 鼠标向上

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

与使用 VBA 相比，另一种选择是使用 powerpoints 动画和效果，这可能会为您带来相同的结果。

Answer 2

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

Answer 3

我找到了简单的方法。

myshape.ActionSettings(ppMouseOver).AnimateAction = msoTrue

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