Image vba电源点在单击时更改图像边框颜色

我正在尝试使用Power Point为幼儿园的孩子们做一个教育性的互动演示，我正在尝试做一种测试/活动，孩子们必须根据问题点击一些图片。有些人是对的，有些人不是。（例如：你能指出消防员使用的工具吗？并展示4张不同工具的图片） 使用mousemove事件，我可以重现一个表示对象名称的声音，使用click事件，我可以重现另一个声音，告诉孩子们“错”或“对”。 现在，我想更改他们正在单击的图片的边框（颜色和/或宽度），但我不知道如何在VBA中进行更改。 这一定很容易，但我不知道辛塔克斯：-( 有什么需要帮忙的吗？

---

谢谢！

你会感到惊讶，但当然，当你巧妙地处理课程和活动时，这并不像你想象的那么容易

我会给你一个简单的想法，所以如果你有时间并且真的需要的话，你可以走这条路。但是会有一些问题——你必须弄清楚如何获得形状的起始边界

以下是如何开始的想法

命名幻灯片上的每个形状-选择一个并在VBA编辑器的即时窗口中运行以下指令，例如：

ActiveWindow.Selection.ShapeRange.Name = "Fireman"

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

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

您需要弄清楚如何设置每个形状的标准设置以及何时设置

---

当然，当你巧妙地处理课堂和活动时，你会感到惊讶，但这并不像你想象的那么容易

我会给你一个简单的想法，所以如果你有时间并且真的需要的话，你可以走这条路。但是会有一些问题——你必须弄清楚如何获得形状的起始边界

以下是如何开始的想法

命名幻灯片上的每个形状-选择一个并在VBA编辑器的即时窗口中运行以下指令，例如：

ActiveWindow.Selection.ShapeRange.Name = "Fireman"

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

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

您需要弄清楚如何设置每个形状的标准设置以及何时设置

---

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

由于某种原因，在先设置边框形状颜色，然后设置权重时会出现某种错误，形状边框颜色在PowerPoint中变为通用蓝色werPoint 2010。

这一定很简单，但我不知道sintax

…我建议做一些谷歌搜索，试图找到一些语法方面的帮助。如果你展示你所做的努力，询问你需要帮助的地方，而不是让别人帮你做，你会得到最好的结果。你是说您是在VBA中完成的，还是在pp应用程序中作为操作设置完成的？您好，我使用了操作设置（抱歉，无意混淆任何人）斯科特·霍尔茨曼：我问之前在谷歌上搜索了很多，但事实是我不懂VBA。事实上，我不是程序员。我发现这段代码在编辑模式下工作，并试图进行一些更改，但在显示模式下无法工作：Sub img_border（）使用ActiveWindow.Selection.ShapeRange.Fill.Transparency=0#.Line.Weight=5.75.Line.Style=msoLineThinThick.Line.Visible=msoTrue.Line.ForeColor.RGB=RGB（150、150、150）。Line.BackColor.RGB=RGB（255、255、255）End With End Sub我在询问之前尝试了很多东西，阅读了不同的论坛和网站抱歉打扰了你

这一定很容易，但我不知道sintax

…我建议做一些谷歌搜索，试图找到一些语法方面的帮助。如果你表现出你的努力并询问你需要帮助的地方，你会得到最好的结果，而不是让别人帮你做这件事。

使用mousemove事件

-你是说你是在VBA中做的，还是作为pp应用程序中的动作设置？嗨，我使用了动作设置（对不起，我无意混淆任何人）斯科特·霍尔茨曼：我问之前在谷歌上搜索了很多，但事实是我不懂VBA。事实上，我不是程序员。我发现这段代码在编辑模式下工作，并试图进行一些更改，但在显示模式下无法工作：Sub img_border（）使用ActiveWindow.Selection.ShapeRange.Fill.Transparency=0#.Line.Weight=5.75.Line.Style=msoLineThinThick.Line.Visible=msoTrue.Line.ForeColor.RGB=RGB（150、150、150）。Line.BackColor.RGB=RGB（255、255、255）在提问之前，我尝试了很多东西，阅读了不同的论坛和网站，很抱歉打扰了你卡兹贾夫：非常感谢。我会努力让它工作。我会让你知道我是否能做到！谢谢！我明白你关于降低标准标准标准的观点。卡兹贾夫：太好了！非常感谢！我花了几天时间尝试不同的标准我在互联网上找到了ent代码，阅读了许多论坛和网站，但你的代码对我所寻找的内容非常有效！正如你所说，这并不像我预期的那么容易。欢迎你……如果问题解决了，你可以将问题标记为已解决，以通知其他人：）卡兹贾夫：非常感谢。我会努力让它工作。如果我能来，我会告诉你的！非常感谢。我明白你的意思了。卡兹贾夫：太好了！非常感谢你！我花了几天时间尝试在互联网上找到的不同代码，并阅读了许多论坛和网站，但你的代码对我所寻找的内容非常有效！正如你所说，这并不像我想象的那么容易。不客气。。。如果问题已解决，您可能会将问题标记为已解决，以通知其他人：）