使用 vba 更新嵌入在 excel 中的 Powerpoint答案

【问题标题】：Updating Powerpoint embedded in excel using vba使用 vba 更新嵌入在 excel 中的 Powerpoint
【发布时间】：2014-06-05 11:00:28
【问题描述】：

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

【问题讨论】：

你想做什么？你的问题根本不清楚。另外，请包括到目前为止您尝试了什么？请出示您的代码。这里有一个提示：嵌入式 OLEOBject 是 Slide 上的 Shapes 集合的成员。它们可以通过.Name 或索引位置访问。请注意，使用 OLEObjects 通常是一种非常低效的处理方式，并且众所周知，它们很难使用。如果我对您实际尝试做的事情有更多了解，我可能会推荐一些替代方案...
这样的？您已将 PPT 作为 OLE 对象嵌入到您的工作簿中。您希望将此嵌入的 PPT 用作您希望通过 Excel 自动化创建的新演示文稿的基础。您也许可以激活嵌入的 PPT 对象并告诉随后的 PPT 实例以您喜欢的任何名称保存活动演示文稿，以便为您提供新的 PPT 演示文稿。

标签： vba excel powerpoint

【解决方案1】：

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

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

【讨论】：