将特殊 Excel 表格粘贴到幻灯片占位符 PowerPoint VBA 中

Question

很抱歉发布另一个 PasteSpecial 问题，但我还没有找到与我正在尝试做的事情完全相关的内容。

我有一些 VBA 代码：

For Each Workbook In Workbooks

For Each Sheet In Workbook.Sheets

running_pp_app.ActivePresentation.Slides.Add running_pp_app.ActivePresentation.Slides.Count + 1, ppLayoutTitleOnly
Sheet.Range("a1:b2").Copy
running_pp_app.ActivePresentation.Slides(running_pp_app.ActivePresentation.Slides.Count).Shapes.PasteSpecial DataType:=ppPasteDefault, link:=msoCTrue

Next Sheet
Next Workbook

当我将 Excel 范围粘贴到幻灯片中时，我最终希望粘贴的范围/形状占据幻灯片布局中的占位符。我不希望它只是幻灯片上的一些附加形状。

最终，我的目标是能够通过主布局（通过 UI，在我的 VBA 运行后）轻松控制所有粘贴的范围/形状。我不知道如何将链接的 OLE 对象粘贴到幻灯片中，以便它占据占位符位置 - 例如，它是“标题和内容”主布局中的“内容”。

我该怎么做？

感谢所有帮助。谢谢。

Answer 1

我的第一个想法是这似乎是不可能的。这可以粘贴到占位符中：

Sub PasteIntoPlaceholder()
    ActivePresentation.Slides(1).Shapes(2).Select
    ActiveWindow.View.PasteSpecial DataType:=ppPasteDefault
End Sub

但是，一旦您添加了链接参数，它就会作为单独的形状粘贴，而不是在占位符中。

这主要对应于用户界面中的类似操作。使用选定的占位符直接粘贴到幻灯片上会按预期插入图表，但选择性粘贴不会。

修订：

按照您的建议，这主要完成了工作。占位符会缩小以适合粘贴的 Excel 对象，而不是 Excel 对象会扩展以适合占位符，但是，它可以工作：

Sub PasteIntoPlaceholder()
    With ActiveWindow
        .View.PasteSpecial DataType:=ppPasteDefault, Link:=msoCTrue
        .Selection.Cut
        ActivePresentation.Slides(1).Shapes(2).Select
        .View.Paste
    End With
End Sub