写一个修改ppt形状颜色和字体颜色的宏

以下是一个修改PPT形状颜色和字体颜色的VBA宏：

Sub ChangeShapeColorAndFontColor()

    Dim oSlide As Slide
    Dim oShape As Shape
    Dim oFont As Font
    Dim oFill As Fill
    
    '循环遍历所有幻灯片
    For Each oSlide In ActivePresentation.Slides
    
        '循环遍历每个形状
        For Each oShape In oSlide.Shapes
        
            '判断形状是否是AutoShape
            If oShape.Type = msoAutoShape Then
            
                '修改形状填充颜色
                Set oFill = oShape.Fill
                oFill.ForeColor.RGB = RGB(255, 0, 0) '将形状填充颜色修改为红色
                
                '修改形状字体颜色
                Set oFont = oShape.TextFrame.TextRange.Font
                oFont.Color.RGB = RGB(0, 255, 0) '将形状字体颜色修改为绿色
                
            End If
        
        Next oShape
    
    Next oSlide

End Sub

这个宏会循环遍历当前打开的PPT的每个幻灯片，然后循环遍历每个形状，如果形状是AutoShape类型，就修改其填充颜色和字体颜色。你可以根据需要修改RGB颜色值，或者使用其他的颜色表示方式。