创造Powerpoint/主题演讲与脚本?
-
18-09-2019 - |
题
最近我已经创建的PowerPoint演示给公司。我们主要是一直这样做在PowerPoint。基本上他们是由同一设计的,而只是不同的号码在设置地点和不同使用的数字产生的PowerPoint条线图/饼形图的东西。(基本上有这些饼形图的对象时插入,给你一个选择改变设计,并输入的数字,在一些excel电子表格中持久性有机污染物)。
让我们说我这样做对100家公司:是不是有一个方法只是指定所有的不同价值观我的需要,并有powerpoint创造了某种方式?我可以提供设计基础,它所需要做的只是去和改变的动态值(没有什么光栅).
这甚至不是一个问题必PowerPoint:如果我可以这样做主题演讲(如,自动化饼图、条形图,并且设定的地方数字和静态的文字),随后,工作。
编辑:我所提到的,我知道,PowerPoint派图酒吧图是产生从Xxcel电子表格。大约有3的这些在我的介绍,以及其他改变价值观的静态立场,在100或以介绍。我看到脚本中所有或大多数的进程。
编辑:在使用PowerPoint2007年,或最新版本的基调。优选方法的脚本,主题可能会AppleScript,用PowerPoint2007年,无论是蟒蛇/Django或宏。
解决方案
对不起这已经采取了几天回到你,不得不作出一个问题。这里有一个快速和有效的方式来做什么你要求。
- 创建一种宏观-启用了PowerPoint。
- 创建一个单一的饼图上 第一张幻灯片通过插入图表 命令在所带。Excel会 开放。在列, 水平(类别)轴 是离开(即第1季第2法rt,等等)。在 传说中的条目(系列)轴, 展开一些列和增加更多的数据。确保列名都是独一无二的。
- 近Excel
- 按Alt+F11去VBE。
- 复制、粘贴的代码下面进入一个新的
模块,改变下
变量:
chartTemplatePath
而且, 如果需要,sc.Name
,的东西 其他的选择。 - 点击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,这是好的,只是选择的程图,去 图工具 | 设计 | 选择数据 并重新选择数据集作为整个表格。
不隶属于 StackOverflow