VBA Power Point单击更改图像边框颜色

Question

我正在尝试使用Power Point为较亲切的孩子做一个教育性的交互式演示，并且正在尝试一种测试/活动，其中孩子们必须根据问题单击一些图片。 有些会是正确的，有些则不会。 （例如：您能指出消防员使用的工具吗？并显示4张不同工具的图像）使用mousemove事件，我可以再现声音，该声音说出了对象的名称，而使用click事件，我可以再现另一种声音告诉孩子们“错”或“正确”。 现在，我想更改他们单击的图片的边框（颜色和宽度），但是我不知道如何在VBA中进行操作。 它一定很容易，但是我不知道sintax :-(有什么帮助吗？请？谢谢！

Answer 1

您会感到惊讶，但是当您巧妙地处理类和事件时，这并不像您预期​​的那么容易。

我给您一个简单的想法，因此，如果您有时间并且确实需要它，可以采用这种方式。 但是会有一些问题-您将不得不弄清楚如何才能开始绘制形状的边界。

这是如何开始的想法。

1. 在幻灯片上命名每种形状-选择一种形状，然后在VBA编辑器的“即时”窗口中运行以下指令，例如：

    ActiveWindow.Selection.ShapeRange.Name = "Fireman" 

2. 更改每种形状的颜色和线条写宏（仅在幻灯片视图中运行）：

    Sub FiremanClick() With SlideShowWindows(1).View.Slide.Shapes("Fireman").Line .Weight = 2 .ForeColor.RGB = RGB(255, 0, 0) End With End Sub 

3. 在应用程序中，右键单击消防员形状并将动作与您编写的宏关联。

4. 您将需要弄清楚如何取消每种形状的标准设置以及何时设置。

Answer 2

由于某些原因，先设置边框形状颜色然后设置权重时会发生某种错误，形状边框颜色在PowerPoint 2010中变成通用的蓝色。