将特殊Excel表格粘贴到幻灯片占位符PowerPoint VBA中 [英] PasteSpecial Excel Table into Slide Placeholder PowerPoint VBA

问题描述

很抱歉发布另一个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对象粘贴到幻灯片中，使其占据占位符位置，从而成为"标题和内容"主布局中的"内容"。

如何执行此操作？

感谢所有的帮助。谢谢。

推荐答案

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

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

这篇关于将特殊Excel表格粘贴到幻灯片占位符PowerPoint VBA中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！