image - 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 中变为通用蓝色。