本示例设置第一个窗口中所有选定形状的前景填充颜色。
Windows(1).Selection.ShapeRange.Fill _
.ForeColor.RGB = RGB(255, 0, 255)