0

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

4

2 回答 2

2

你会感到惊讶，但它并不像你想象的那么容易，当然，在课堂和活动方面做得很好。

我会给你一个简单的想法，所以如果你有时间并且真的需要它，你可以这样做。但是会有一些问题——你必须弄清楚你怎么能得到你的形状的起始边界。

这是如何开始的想法。

  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. 您将需要弄清楚如何设置每个形状的标准设置以及何时设置。

于 2013-03-25T21:14:52.327 回答
1

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

于 2017-08-08T20:35:07.410 回答