本示例将向活动文档中的图形1 垂直翻转并将其设为红色。

With ActiveDocument.Shapes(1)
    .Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
    .Flip ksoFlipVertical
End With