1. 主页
  2. 数据科学 (Data science)
  3. Excel & VBA
  4. 如何用VBA Automate PPT的制作

如何用VBA Automate PPT的制作

  • M

    VBA可以联动Office的所有软件。我们这次要试试联动PPT和Excel，Automate PPT的制作.
    具体的想法是先做一个PPT Template, 里面把一些要修改的参数设置好, 然后用过修改Excel的方式来制作PPT.

    非常感谢下面这个视频, 是一个非常好的用Excel做PPT的例子, 有兴趣的话可以看看
    https://youtu.be/v_Mv2f9GZ5M

    首先要找到Developer中的References
    5710628a-4a77-4fc0-aa4d-b30227716aa8-image.png
    选中下面的Reference
    e8267077-e310-4cd6-8071-1e3b9ecb7afc-image.png

    勾选了这个之后就可以使用PowerPoint.Application Object了

    0
    登录后回复
     
  • M

    第一张幻灯片的第二个形状里将[Month Year]这个字符换成Excel里面命名为"Month"和"Yea"的单元格的值.
    第一张幻灯片的第三个形状同理.

    2e648ee0-d809-4b7a-aa72-be27915bea14-image.png

    ' 初始化PPT,PPT的路径是Excel里面名为"PPT"的范围的值
Dim sld As Slide, objppt As PowerPoint.Application, shp As PowerPoint.Shape, act As Presentation
Set objppt = CreateObject("PowerPoint.Application")
'可以用 objppt.Visible = True / False来控制是不是需要让PPT可见
Set act = objppt.Presentations(Range("PPT").Value)

' 将一开始命名好的占位符替换成我们想要的值
act.Slides(1).Shapes(2).TextFrame.TextRange.Text = Replace(act.Slides(1).Shapes(2).TextFrame.TextRange.Text, "[Month Year]", Range("Month").Value & " " & Range("year").Value)
act.Slides(1).Shapes(3).TextFrame.TextRange.Text = Replace(act.Slides(1).Shapes(3).TextFrame.TextRange.Text, "[Date]", Range("Today").Value)

    另一种方法声明 一个PowerPoint.Application Object是

    Dim objppt as PowerPoint.Application
Set objppt = New PowerPoint.Application
    0
  • M

    那么如何替换Chart呢, 可以看下面的例子.
    首先需要在PPT中给要替换的Chart起一个名字
    02314002-67bc-4e07-9cd6-e0530097d9c1-image.png
    这里选择Home, 然后选择Arrange下拉菜单里面的最后一项
    2ed1c781-89be-472b-a6f3-ffb035641c78-image.png
    可以在这里更改Chart的名字
    a5167ed3-c24d-4545-a191-a58b4baeef41-image.png

    假设改为Chartexample, 在第六页PPT里面. 可以用下面的代码把图片更换为Excel里面的图片, 位置形状不变化

    Workbooks("Example.xlsx").Worksheets("Example").ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Copy
act.Slides(6).Shapes.Paste

act.Slides(6).Shapes(act.Slides(6).Shapes.Count).Width = act.Slides(6).Shapes("Chartexample").Width
act.Slides(6).Shapes(act.Slides(6).Shapes.Count).Height = act.Slides(6).Shapes("Chartexample").Height
act.Slides(6).Shapes(act.Slides(6).Shapes.Count).Left = act.Slides(6).Shapes("Chartexample").Left
act.Slides(6).Shapes(act.Slides(6).Shapes.Count).Top = act.Slides(6).Shapes("Chartexample").Top

act.Slides(6).Shapes("Chartexample").Delete
    0
登录后回复