Как раскрасить фигуры, когда я нажимаю на кнопку в Power Point?

Question

Я хочу изменить цвет для выбранной фигуры. Если я нажимаю одну фигуру и нажимаю кнопку, я хочу изменить цвет на красный, как на картинке, но когда я нажимаю кнопку.

Как создать кнопку, на которую я наложил условие, чтобы изменить выбранные формы цвета?

Я пытался изменить цвет, нажимая другие формы, но это не то, что я хочу.

большое спасибо

Answer 1

Итак, во-первых, поскольку вы пытаетесь изменить цвет выбранной фигуры, это означает, что вы находитесь в обычном (редактирующем) виде, а не в слайд-шоу. Во-вторых, кнопки или формы ActiveX с действиями для запуска макросов можно нажимать только в режиме слайд-шоу. Таким образом, единственная опция, которую вы можете использовать для "кнопки" в обычном представлении, - это использовать возможности расширения ленты Office. Вам нужно добавить XML для кнопки в customUI вашего файла PowerPoint и создать связанный макрос для его запуска. Например, добавьте этот XML в ваш файл с помощью редактора CustomUI:

// 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

Теперь, когда вы нажимаете кнопку " Моя кнопка" на пользовательской вкладке " Моя вкладка", если на слайде есть выбранная фигура типа "Автофигура", цвет заливки изменится на красный.