修改为针对某一个形状的颜色修改

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

Sub ChangeShapeColorAndFontColor()

    Dim oShape As Shape
    Dim oFont As Font
    Dim oFill As Fill
    
    '指定要修改颜色的形状名称
    Set oShape = ActivePresentation.Slides(1).Shapes("Rectangle 1")
    
    '判断形状是否是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

End Sub

这个宏只会修改指定的形状（示例中指定了第一张幻灯片上名为"Rectangle 1"的形状）的填充颜色和字体颜色。你可以根据需要修改RGB颜色值，或者使用其他的颜色表示方式。如果你想修改其他形状的颜色，只需要修改指定的形状名称即可。