vb编辑ppt

[dooney_huang]

通过shell打开一个ppt，怎么用变量代替这么ppt，然后我可以对这ppt进行编辑

[milaoshu1020]

不应该用shell打开,应该这样写:

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

[milaoshu1020]

引用 7 楼 dooney_huang 的回复:

引用没问题，就是想编辑ppt，以后出报告方便，一楼的例子可以用，就是我的电脑不知道怎么回事，要把ppt打开，才能运行那个程序

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

[dooney_huang]

引用 1 楼 milaoshu1020的回复:

不应该用shell打开,应该这样写:

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

set那一句有问题，说PowerPointframe window dose not exist

[dooney_huang]

引用 1 楼 milaoshu1020的回复:

不应该用shell打开,应该这样写:

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

运行错误-2147188160（80048240）

[脆皮大雪糕]

看你的截图，是在excel里面用VBA想启动PPT。 那么你需要先引用powerpoint 菜单-工具-引用 弹出窗体里面找到你的powerpoint，勾起来。然后再用米老鼠的这段代码就行了。

[脆皮大雪糕]

[全都是]

PPT 打印当前页的宏怎么做啊？大神帮忙啊

[dooney_huang]

引用没问题，就是想编辑ppt，以后出报告方便，一楼的例子可以用，就是我的电脑不知道怎么回事，要把ppt打开，才能运行那个程序

[dooney_huang]

引用 8 楼 milaoshu1020的回复:

[quote=引用 7 楼 dooney_huang 的回复:]
引用没问题，就是想编辑ppt，以后出报告方便，一楼的例子可以用，就是我的电脑不知道怎么回事，要把ppt打开，才能运行那个程序

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。。。。。。