将形状从PowerPoint主幻灯片布局复制到cu

Question

在PowerPoint 2010中：

我想创建一个宏来复制我在主幻灯片的布局幻灯片上创建的形状，并将其粘贴到活动幻灯片 - 当我运行该宏时，我正在播放的幻灯片。 （我需要它以便我可以在幻灯片上使用它 - 克隆它等）。

我是怎么做到的？

谢谢，

Answer 1

您还没有提到如何确定要复制的形状，但如果您事先知道它将是，例如，演示文稿中第一个母版的第二个自定义布局上的第六个形状并且您想将其复制/粘贴到幻灯片3：

Sub Thing()

    Dim oSh As Shape

    ' This copies the sixth shape on the second layout of the first master
    ' Change as needed
    Set oSh = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(2).Shapes(6)

    oSh.Copy

    Set oSh = ActivePresentation.Slides(3).Shapes.Paste(1)

    With oSh
        ' do any formatting/sizing/etc. you like here
    End With

End Sub