本示例是改变选中的第一个图形的前景色。

Selection.InlineShapes(1).Fill.ForeColor.RGB = RGB(255, 200, 0)