PowerPoint VBA教程:Duplicate方法

在方法应用于 Shape 和 ShapeRange对象时复制方法。

创建指定的 Shape 或 ShapeRange对象的副本,在最初指定了形状或形状范围之后立即向 Shapes集合中添加新的形状或形状范围,然后返回新的 Shape 或 ShapeRange对象。

expression.Duplicate

expression  必选。该表达式返回上述对象之一。

 

在方法应用于 Slide 和 SlideRange对象时复制方法。

创建指定的 Slide 或 SlideRange对象的副本,在最初指定了幻灯片或幻灯片范围之后立即向 Slides集合中添加新的幻灯片或幻灯片范围,然后返回代表一个副本幻灯片或多个副本幻灯片的 Slide 或 SlideRange对象。

expression.Duplicate

expression  必选。该表达式返回上述对象之一。

VBA示例

当方法应用于 Shape 和 ShapeRange对象时。

本示例在活动演示文稿的末尾添加一张新的空白幻灯片,在新幻灯片中添加一个钻石形状,复制该钻石形状,然后设置该副本的属性。第一个钻石形状将具有当前配色方案的默认填充色,第二个钻石形状将偏离第一个形状并具有默认的阴影色。


Set mySlides = ActivePresentation.Slides
Set newSlide = mySlides.Add(mySlides.Count + 1, ppLayoutBlank)
Set firstObj = newSlide.Shapes _
    .AddShape(msoShapeDiamond, 10, 10, 250, 350)
With firstObj.Duplicate
    .Left = 150
    .Fill.ForeColor.SchemeColor = ppShadow
End With

当方法应用于 Slide 和 SlideRange对象时

本示例创建活动演示文稿中第一张幻灯片的一个副本,然后设置新幻灯片的背景阴影和标题文本。新幻灯片将作为演示文稿的第二张幻灯片。


Set newSlide = ActivePresentation.Slides(1).Duplicate
With newSlide
    .Background.Fill.PresetGradient msoGradientVertical, _
        1, msoGradientGold
    .Shapes.Title.TextFrame.TextRange _
        .Text = "Second Quarter Earnings"
End With

上页:PowerPoint VBA教程:DrawLine方法 下页:PowerPoint VBA教程:EndConnect方法

PowerPoint VBA教程:Duplicate方法

PowerPoint VBA教程:EndConnect方法 PowerPoint VBA教程:EndDisconnect方法
PowerPoint VBA教程:EndNamedShow方法 PowerPoint VBA教程:EndReview方法
PowerPoint VBA教程:EraseDrawing方法 PowerPoint VBA教程:Exit方法
PowerPoint VBA教程:Export方法 PowerPoint VBA教程:Find方法
PowerPoint VBA教程:FindBySlideID方法 PowerPoint VBA教程:FindFirstAnimationFor方法
PowerPoint VBA教程:FindFirstAnimationForClick方法 PowerPoint VBA教程:First方法
PowerPoint VBA教程:FitToPage方法 PowerPoint VBA教程:Flip方法
PowerPoint VBA教程:Follow方法 PowerPoint VBA教程:FollowHyperlink方法
PowerPoint VBA教程:GotoNamedShow方法 PowerPoint VBA教程:GotoSlide方法
PowerPoint VBA教程:Group方法 PowerPoint VBA教程:Help方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号