本示例将第一个窗口中选定的图形改为24角星。

Windows(1).Selection.ShapeRange.AutoShapeType = ksoShape24pointStar