Использование цветов Accent вместо значений RGB в PPT VBA

Question

Я нашел этот код для применения форматов заголовков текущего макета слайда ко всем слайдам ppt, но есть ли способ установить цвета акцента вместо значений RGB для шрифтов заголовка? .ObjectThemeColor или .SchemeColor не работает в этом случае. возможность получить значения RGB, но не SchemeColor, здесь значение ocust становится нулевым.

Sub AlignToMaster()
    Dim osld As Slide
    Dim oshp As Shape
    Dim ocust As Shape
    For Each osld In ActivePresentation.Slides
        If osld.Shapes.HasTitle Then
            Set oshp = osld.Shapes.Title
            Set ocust = osld.CustomLayout.Shapes.Title
            With oshp
                .Left = ocust.Left
                .Top = ocust.Top
                .Height = ocust.Height
                .Width = ocust.Width
                .TextFrame2.TextRange.Font.Name = ocust.TextFrame2.TextRange.Font.Name
                .TextFrame2.TextRange.Font.Size = ocust.TextFrame2.TextRange.Font.Size
                .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = ocust.TextFrame2.TextRange.Font.Fill.ForeColor.RGB
                .Fill.ForeColor.RGB = ocust.Fill.ForeColor.RGB
                .Line.ForeColor.RGB = ocust.Line.ForeColor.RGB
            End With
        End If
    Next osld
    MsgBox ("All titles have been adjusted to the master slide format")

End Sub

Answer 1

SchemeColor - это то, что вам нужно. «не работает в этом случае» ничего нам не говорит, пожалуйста, опишите любые сообщения об ошибках или любые неожиданные результаты, которые вы получаете. Вот синтаксис использования Accent Colors:

ActivePresentation.Slides(1).Shapes(1).Fill.ForeColor.SchemeColor = ppAccent1

Вот справочная страница Microsoft, показывающая параметры, которые можно использовать для доступа к другим цветам темы: Свойство ColorFormat.SchemeColor (PowerPoint)

Редакция: Чтобы получить цвет схемы, вот синтаксис:

MsgBox ActivePresentation.Slides(1).Shapes(1).TextFrame2.TextRange.Font.Fill.ForeColor.SchemeColor