本示例设置第一个窗口中所有选定形状的前景填充颜色。

Windows(1).Selection.ShapeRange.Fill _
    .ForeColor.RGB = RGB(255, 0, 255)