vba powerpoint点击更改图像边框颜色

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中的通用蓝色。