將特殊 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