将形状从 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