当我点击电源点按钮时如何着色形状?

时间:2017-01-17 12:26:11

标签: powerpoint powerpoint-vba powerpoint-2013

我想更改所选形状的颜色。如果我点击一个形状,我点击一个按钮,我想改变红色的颜色,如图片,但当我按下按钮。

我如何创建一个按钮,我设置条件来改变选择的颜色形状?

我尝试通过按其他形状来改变颜色但不是我想要的。

非常感谢

enter image description here

1 个答案:

答案 0 :(得分:0)

好的,首先,因为您试图更改所选形状的颜色,这意味着您处于正常(编辑)视图而不是幻灯片放映。其次,只有在幻灯片放映模式下才能单击带有操作以运行宏的ActiveX按钮或形状。因此,普通视图中“按钮”的唯一选项是使用Office的功能区扩展功能。您需要将按钮的XML添加到PowerPoint文件的customUI并创建关联的宏以使其运行。例如,使用CustomUI Editor

将此XML添加到您的文件中
// Fluent UI customisation to add a single button to the PowerPoint ribbon //
// Written by Jamie Garroch of YOUpresent Ltd. http://youpresent.co.uk //
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon>
    <tabs>
      <tab id="tabMyTab" label="My Tab">
        <group id="grpMyGroup" label="My Group">
          <button id="btnMyButton" label="My Button" onAction="MyMacro"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

...然后在CustomUI编辑器中关闭文件并在PowerPoint中重新打开。然后添加你的宏:

' PowerPoint macro to change the fill colour of a single selected shape
' Written by Jamie Garroch of YOUpresent Ltd. http://youpresent.co.uk
Public Sub MyMacro(control As IRibbonControl)
  With ActiveWindow.Selection
    If .Type = ppSelectionShapes Then
      If .ShapeRange.Count = 1 Then
        If .ShapeRange.Type = msoAutoShape Then
          .ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
         End If
      End If
    End If
  End With
End Sub

现在,当您点击自定义标签我的标签中的我的按钮时,如果幻灯片中有一个选定形状的自选图形,则填充颜色将为变成红色。