VBA设置PPT中文字的颜色

您可以使用以下代码设置 PowerPoint 中文本框中文字的颜色：

Sub SetTextColor()
    Dim PPTApp As PowerPoint.Application
    Dim PPTPres As PowerPoint.Presentation
    Dim PPTSlide As PowerPoint.Slide
    Dim PPTShape As PowerPoint.Shape
    Dim PPTTextRange As PowerPoint.TextRange
    
    'Create a PowerPoint application object
    Set PPTApp = New PowerPoint.Application
    
    'Open the PowerPoint presentation
    Set PPTPres = PPTApp.Presentations.Open("C:\Presentation.pptx")
    
    'Select the first slide
    Set PPTSlide = PPTPres.Slides(1)
    
    'Select the first shape on the slide
    Set PPTShape = PPTSlide.Shapes(1)
    
    'Select the text in the shape
    Set PPTTextRange = PPTShape.TextFrame.TextRange
    
    'Set the text color to red
    PPTTextRange.Font.Color.RGB = RGB(255, 0, 0)
    
    'Save and close the PowerPoint presentation
    PPTPres.Save
    PPTPres.Close
    
    'Quit the PowerPoint application
    PPTApp.Quit
    
    'Release the objects from memory
    Set PPTTextRange = Nothing
    Set PPTShape = Nothing
    Set PPTSlide = Nothing
    Set PPTPres = Nothing
    Set PPTApp = Nothing
End Sub

请将 "C:\Presentation.pptx" 替换为您的 PowerPoint 文件的完整路径。在这个示例中，我们将文本颜色设置为红色，您可以根据需要更改 RGB 值。