本示例复制第一个窗口中选定形状的格式,再添加一个图形,将所复制的格式应用于这个新增图形。

Windows(1).Selection.ShapeRange.PickUp
Set firstRect = ActivePresentation.Slides(Windows(1).Selection.SlideRange.SlideIndex)
    .Shapes.AddShape(ksoShapeRectangle,1300, 1000, 2000, 1000)
firstRect.Apply