关于powerpoint的几个问题

Question

MsgBox Application.ActivePresentation.Slides(1).Shapes.Count

Answer 1

在工程中的部件可以添加PowerPoint控件吧。

Answer 2

2、if application.ActivePresentation.Slides(3).Shapes(3).HasTable =true then
3、With pptApp.ActivePresentation.Slides(4).Shapes(2).Table
 　　 num = .Columns.Count
　　　With .Cell(1, 1)
     　　.Shape.TextFrame.TextRange.Text = "sjdkf"     
 　　 End With   
　End With

Answer 3

Application.ActivePresentation.Slides(1).Shapes("textbox1").OLEFormat.Object = "1111111"
 Application.ActivePresentation.Slides(1).Shapes("label1").OLEFormat.Object = "2222"