如何用select形状和运行宏来填充颜色？

Question

我正在尝试 select 一个形状并在 PowerPoint 演示文稿中用一种颜色填充这个形状（我把我的代码放在绿色按钮上）：

Sub ChangeInRed()


   If ActiveWindow.Selection.Type = ppSelectionNone Then
        MsgBox "Please selecte a zone !"
   Else
        For Each shp In ActiveWindow.Selection.ShapeRange
          shp.Fill.ForeColor.RGB = RGB(255, 0, 0)
        Next shp
   End If


End Sub

如果我运行我的代码来自宏代码，我的 selected 形状会变成红色；如果我没有形状 selected，我的代码会显示："Please select a zone".

一切正常，但在编辑模式下，我的按钮对运行这段代码无效，我在演示模式下尝试过。

当我尝试在演示模式下 select 一个形状时，我的幻灯片会转到下一页，但我不需要那样做。

我想 select 形状并按下按钮将颜色更改为红色，或者我想单击形状并更改颜色。

如果我在宏代码中尝试从顶部开始的代码，我的形状会变成红色，但在演示文稿中不会。

我的问题是：如何在演示模式下select一个形状并改变颜色？

Answer 1

如果您希望形状在幻灯片放映期间改变颜色，请将下面的宏复制到您的 PowerPoint .pptm（或 .ppsm）文件，然后选择形状，转到 PowerPoint 功能区并单击 Insert / Action 并在 Mouse Click 选项卡中，单击 运行 Macro 并确保在单击 OK.

之前选择 ChangeShapeColour 宏

Option Explicit

Sub ChangeShapeColour(ByRef oShp As Shape)
  oShp.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

如何用select形状和运行宏来填充颜色？

How to select shape and run macro to fill color?

powerpoint

vba