本示例将第一个窗口中选定的图形改为24角星。
Windows(1).Selection.ShapeRange.AutoShapeType = ksoShape24pointStar