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