4.5向幻灯片添加对象

12.1.2小节向幻灯片添加了一条直线段。实际上，可以向幻灯片添加文本、表格、图形、图表、音频和视频等内容。

下面代码向第一个幻灯片添加一个文本：

code.vba 
Sub Test()
  Dim pr As Presentation
  Set pr = Presentations.Open("D:\test2.pptx")
  Set sld = pr.Slides(1)
  Set shp = sld.Shapes.AddLabel(1, 100, 20, 200, 100)
  shp.TextFrame.TextRange.Text = "123abc文本测试"
End Sub

效果如图4-2所示。

Document Image

图4-2

向幻灯片添加一个表格：

code.vba 
Sub Test()
  Dim pr As Presentation
  Set pr = Presentations.Open("D:\test2.pptx")
  Set sld = pr.Slides(1)
  Set shp = sld.Shapes.AddTable(4, 3)
End Sub

效果如图4-3所示。

Document Image

图4-3

向幻灯片添加一个矩形区域：

code.vba 
Sub Test()
  Dim pr As Presentation
  Set pr = Presentations.Open("D:\test2.pptx")
  Set sld = pr.Slides(1)
  Set shp = sld.Shapes.AddShape(1, 150, 100, 100, 200)
End Sub

效果如图4-4所示。

Document Image

图4-4

向幻灯片添加一个音频：

code.vba 
Sub Test()
  Dim pr As Presentation
  Set pr = Presentations.Open("D:\test2.pptx")
  Set sld = pr.Slides(1)
  Set shp = sld.Shapes.AddMediaObject2("D:\test.mp3", 0, 1, 100, 100)
End Sub

效果如图4-5所示。

Document Image

图4-5