如何选择形状并运行宏来填充颜色？

Question

我正在尝试选择一个形状，并在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

如果我从宏代码运行我的代码，我选择的形状会变为红色;如果我没有选择形状，我的代码会显示：＆＃34;请选择一个区域＆＃34;。

一切都很好，但是在编辑模式下，我的按钮无效以运行这段代码，我在演示模式下尝试了。

当我尝试在演示模式中选择一个形状时，我的幻灯片显示到下一页但我不需要它。

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

如果我在宏代码中尝试顶部的代码，我的形状会变为红色，但不会显示。

我的问题是：如何在演示模式中选择形状并更改颜色？

Answer 1

如果希望在幻灯片放映期间更改颜色，请将下面的宏复制到PowerPoint .pptm（或.ppsm）文件，然后选择所选形状，转到PowerPoint功能区并单击插入< / strong> / 操作，然后在鼠标点击标签中，点击运行宏，并确保 ChangeShapeColour 宏是在点击确定之前选择。

Option Explicit

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