创造Powerpoint/主题演讲与脚本?

Question

最近我已经创建的PowerPoint演示给公司。我们主要是一直这样做在PowerPoint。基本上他们是由同一设计的，而只是不同的号码在设置地点和不同使用的数字产生的PowerPoint条线图/饼形图的东西。(基本上有这些饼形图的对象时插入，给你一个选择改变设计，并输入的数字，在一些excel电子表格中持久性有机污染物)。

让我们说我这样做对100家公司：是不是有一个方法只是指定所有的不同价值观我的需要，并有powerpoint创造了某种方式?我可以提供设计基础，它所需要做的只是去和改变的动态值(没有什么光栅).

这甚至不是一个问题必PowerPoint:如果我可以这样做主题演讲(如，自动化饼图、条形图，并且设定的地方数字和静态的文字)，随后，工作。

编辑:我所提到的，我知道，PowerPoint派图酒吧图是产生从Xxcel电子表格。大约有3的这些在我的介绍，以及其他改变价值观的静态立场，在100或以介绍。我看到脚本中所有或大多数的进程。

编辑:在使用PowerPoint2007年，或最新版本的基调。优选方法的脚本，主题可能会AppleScript，用PowerPoint2007年，无论是蟒蛇/Django或宏。

Answer 1

对不起这已经采取了几天回到你，不得不作出一个问题。这里有一个快速和有效的方式来做什么你要求。

1. 创建一种宏观-启用了PowerPoint。
2. 创建一个单一的饼图上 第一张幻灯片通过插入图表 命令在所带。Excel会 开放。在列， 水平(类别)轴 是离开(即第1季第2法rt，等等)。在 传说中的条目(系列)轴, 展开一些列和增加更多的数据。确保列名都是独一无二的。
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，这是好的，只是选择的程图，去 图工具 | 设计 | 选择数据 并重新选择数据集作为整个表格。