使用vba更新excel中嵌入的Powerpoint

我有一个excel文件，其中嵌入了3个Powerpoint演示文稿（作为对象）。这些是我要准备的甲板的空白模板。如何通过VBA分配这些嵌入式Powerpoint演示文稿。我知道我可以单独保存Powerpoint演示文稿并访问它们，但这次我想将它们放在一个文件中。提前感谢

好的，假设您在Excel中嵌入了一个PPT演示文稿，其名称为“Object 1”

---

你想干什么？你的问题一点也不清楚。此外，请包括您迄今为止尝试过的内容？请出示你的密码。这里有一个提示：嵌入式对象是

幻灯片

上

形状

集合的成员。可以通过

.Name

或索引位置访问它们。请注意，使用OLEObjects通常是一种效率很低的方式，而且众所周知，它们很难使用。如果我知道更多关于你真正想做的事，我可能会推荐一些替代方案……像这样的？您已将PPT作为OLE对象嵌入工作簿中。您希望使用此嵌入式PPT作为通过Excel自动化创建新演示文稿的基础。您可能能够激活嵌入的PPT对象，并告诉后续的PPT实例以任何名称保存activepresentation，以便为您提供一个新的PPT演示文稿。

Dim oSh As Shape

Set oSh = ActiveSheet.Shapes("Object 1")

With oSh
    ' Uncomment the appropriate line for the result you want

    ' Show
    '.OLEFormat.Verb (1)

    ' Edit (in place)
    '.OLEFormat.Verb (2)

    ' Open
    .OLEFormat.Verb (3)

End With