2,463
社区成员
发帖
与我相关
我的任务
分享
Sub test()
Dim pptApp As New PowerPoint.Application
pptApp.visible = true ' 加一句这个,试试?
Dim MyPresentation As Presentation
Set MyPresentation = pptApp.Presentations.Open("d:\asd.pptx")
MyPresentation.Slides(1).Shapes.AddTextbox 1, 40, 160, 650, 50 ' 添加一个文本框
' ...
End Sub
[/quote]
perfect。。。。。。
Sub test()
Dim pptApp As New PowerPoint.Application
pptApp.visible = true ' 加一句这个,试试?
Dim MyPresentation As Presentation
Set MyPresentation = pptApp.Presentations.Open("d:\asd.pptx")
MyPresentation.Slides(1).Shapes.AddTextbox 1, 40, 160, 650, 50 ' 添加一个文本框
' ...
End Sub
Sub test()
Dim pptApp As New PowerPoint.Application
Dim MyPresentation As Presentation
Set MyPresentation = pptApp.Presentations.Open("d:\asd.pptx")
MyPresentation.Slides(1).Shapes.AddTextbox 1, 40, 160, 650, 50 ' 添加一个文本框
' ...
End Sub