创建具有脚本能力的 Powerpoint/Keynote 演示文稿？

Question

最近我一直在为公司制作 PowerPoint 演示文稿。我主要是在 PowerPoint 中完成此操作。基本上，它们是通过相同的设计创建的，但只是设置位置的数字不同，以及用于生成 PowerPoint 条形图/饼图内容的不同数字。 （插入时基本上有这些饼图对象，为您提供更改设计的选项，并在弹出的一些 Excel 电子表格中输入数字）。

假设我正在为 100 家公司执行此操作：是否有一种方法可以指定我需要的所有不同值，并以某种方式创建幻灯片？我可以提供一个设计基础，它所需要做的就是进入并更改动态值（无光栅）。

对于 PowerPoint 来说，这甚至不一定是一个问题：如果我可以使用 Keynote 来完成此操作（例如，自动绘制饼图、条形图以及使用数字和静态文本设置位置），那么这也可以。

编辑：我提到我知道 PowerPoint 饼图/条形图是从 Xxcel 电子表格生成的。在我的演示文稿中，大约有 3 个这样的值，以及静态位置上的其他变化值，分布在 100 个左右的演示文稿中。我希望编写全部或大部分过程的脚本。

编辑：使用 PowerPoint 2007 或最新版本的 Keynote。使用 Keynote 编写脚本的首选方法可能是 AppleScript，使用 PowerPoint 2007，Python/Django 或宏。

Answer 1

抱歉，我需要几天时间才能回复您，需要解决一个问题。这是一种快速有效的方法来完成您的要求。

1. 创建启用宏的 PowerPoint。
2. 创建一个饼图
   通过插入|图表的第一张幻灯片
   功能区中的命令。 Excel 将
   打开。在列中，在水平（类别）轴上保持原样（即第一季度、第二季度等）。在图例条目（系列）轴上，展开几列并添加更多数据。确保列名称是唯一的。
3. 关闭 Excel
4. 按 Alt+F11 转到 VBE。
5. 将以下代码复制/粘贴到新的
   模块，更改以下内容
   变量：chartTemplatePath 以及，
   如果需要，sc.Name，某物
   其他你选择的。
6. 在子程序中点击F5运行。
   您现在应该有尽可能多的图表
   幻灯片就像有列一样。

。

Sub CreateChartDecksandSave()
    Dim chartTemplatePath As String
    chartTemplatePath = "C:\Temp\"

    Dim myPPT As Presentation
    Set myPPT = ActivePresentation

    Dim mainChart As Chart
    Set mainChart = myPPT.Slides(1).Shapes(1).Chart

    Dim scCount As Integer
    scCount = mainChart.SeriesCollection.Count

    Dim sc As Series

    For i = 1 To scCount
        Set sc = mainChart.SeriesCollection(1)
        myPPT.SaveCopyAs (chartTemplatePath & sc.Name & ".pptx")
        sc.Delete
    Next
End Sub

如果您正在使用此工具并且图表数据从主 PPT 中消失，没关系，只需选择图表，转到图表工具 | 设计 | 选择数据并重新选择您的数据集作为整个表格。