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