使用重音颜色代替PPT VBA中的RGB值

Question

我发现此代码将当前幻灯片布局的标题格式应用于ppt的所有幻灯片，但是有什么方法可以为标题字体设置强调颜色而不是RGB值？ .ObjectThemeColor或.SchemeColor在此实例中不起作用。

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是您所追求的。 “在这种情况下不起作用”没有告诉我们任何信息，请描述任何错误消息或任何意外的结果。这是使用强调颜色的语法：

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

这里是Microsoft参考页，显示可用于访问其他主题颜色的参数：ColorFormat.SchemeColor property (PowerPoint)