是否可以识别在 Powerpoint 演示文稿上触发鼠标悬停的形状 ID？

Question

是否可以识别在 Powerpoint 演示文稿上触发鼠标悬停的形状 ID。

我想要做的是在带有标题的幻灯片上显示一系列形状，当用户将鼠标悬停在形状上时，我想使用 VBA 在页面的另一部分（可能在单独的帮助文本中）显示有关该形状的更多详细信息盒子。然后，我可以使用选定的形状 ALT 文本来显示在帮助框中。我看不到的是如何识别触发鼠标悬停宏的形状。这可能吗？如果我可以识别触发该动作的形状，我就可以获取有关该形状的信息。

Answer 1

PowerPoint 中的 Shape 对象不允许您像通常与 VBA 代码中的其他对象一样与其事件进行交互。仅有的两个公开的“事件”实际上并不是 VBA 事件。它们是一个名为 Actions 的特殊类，它们是“ppMouseOver”和“ppMouseClick”。如果您事先知道有关形状及其相应信息的所有信息，您可以编写一些代码来执行您想要的操作，但它全部都是硬编码的，这可能不是您想要的。

当演示开始时，您可以运行类似这样的例程：

Sub SetActionsRoutine()

    Shape1.ActionSettings(ppMouseOver).Action = ppActionRunMacro
    Shape1.ActionSettings(ppMouseOver).Run = "showInformation1"

    Shape2.ActionSettings(ppMouseOver).Action = ppActionRunMacro
    Shape2.ActionSettings(ppMouseOver).Run = "showInformation2"
    ...
    ...
End Sub

然后每当您对这些形状进行鼠标悬停时，都会运行以下例程之一。

Sub showInformation1()
    myTextBox.Text = Shape1.AlternativeText
End Sub

Sub showInformation2()
    myTextBox.Text = Shape2.AlternativeText
End Sub

这是非常有限的，需要您为幻灯片上的每个形状编写一个子例程。可能不是您想要的方法，但同样，使用 PowerPoint，您的选择非常有限。

Answer 2

StackOverflow 新手，迟来回答，但您可以执行以下操作：

Sub RespondToShape(oSh as Shape)
  MsgBox "You clicked " & oSh.Name
End Sub

分配您想要与运行宏的操作设置交互的每个形状，并选择 RespondToShape 作为宏。