在 Excel 环境中使用名称选择 PowerPoint 幻灯片答案

【问题标题】：Select PowerPoint Slide using Names in Excel environment在 Excel 环境中使用名称选择 PowerPoint 幻灯片
【发布时间】：2020-03-03 05:24:44
【问题描述】：

我设置了一个宏，可以使用 excel VBA 将电子表格中的图形和表格复制/粘贴到预先存在的 PowerPoint 演示文稿中的特定幻灯片上。在代码中，我必须指定确切的幻灯片编号以将 excel 图表复制到（完成 100 多次）。

问题在于，将来在演示文稿中添加/删除幻灯片时，幻灯片编号会发生变化，我将不得不检查代码并手动更新每个幻灯片参考。

我正在寻找一种在 PowerPoint 中命名幻灯片的方法，然后在我的 excel vba 代码中使用这些名称？消除以后添加/删除幻灯片的风险（这肯定会发生）。

这篇文章在概念上很相似（vba powerpoint select a slide by name），但我似乎无法使用 excel vba 让它工作。

我用来粘贴图表的代码摘录如下。而不是引用幻灯片 54，我宁愿使用像“性能”这样的命名幻灯片：

Set oPPT = GetObject(, "PowerPoint.Application")
Set presUpdate = oPPT.Presentations("Presentation Name")

With presUpdate.Slides(54)
        .Shapes.PasteSpecial(DataType:=xlBitmap).Select
        .Shapes("Picture 1").Left = 34.01559
        .Shapes("Picture 1").Top = 96.36512
End With

谢谢

【问题讨论】：

标签： excel vba

【解决方案1】：

假设您有 3 个主题，绩效、问题和销售

在 PowerPoint 文档的主布局中创建 4 个幻灯片布局并将它们重命名为

性能
问题
销售
其他

完成后，通过右键单击幻灯片并选择 4 种布局之一，根据主题对所有内容进行排序和粘贴（是的，这是一个痛苦的过程，但只有一次）。

如果文档包含 100 张幻灯片，以下是场景

性能：20 张幻灯片
问题：30 张幻灯片
销量：10 张幻灯片
其他：40 张幻灯片

即使它们被重新排序，您也可以编写一个可以搜索幻灯片名称并进行相关更改的宏。

这里的重点是幻灯片名称是您的索引，从长远来看，将它们按这样排序将有助于您。

希望这能回答你的问题

【讨论】：