How to automate PowerPoint using VB

最新推荐文章于 2021-12-29 18:14:12 发布

weixin_30478923

最新推荐文章于 2021-12-29 18:14:12 发布

阅读量97

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/seasonzone/p/3806479.html

Microsoft has an article that explains how to automate PowerPoint using VB

For some odd reason they've entitled it How to automate Powerpoint using VB

Here's a quick example:

Sub AutomatePowerPoint()
    ' This requires that you set a reference to PowerPoint in Tools, References
    ' You could later change these to As Object to avoid that necessity
    Dim oPPTApp As PowerPoint.Application   
    Dim oPPTPres As PowerPoint.Presentation
    Dim sPresentationFile as String

    sPresentationFile = "C:\MyFiles\Somefile.PPT"

    ' Get a reference to PowerPoint app
    Set oPPTApp = New PowerPoint.Application
    '  set it visible or you may get errors - there are ways around this but they're
   '  beyond the scope of this FAQ
    oPPTApp.Visible = True
    ' minimize if you want to hide it:
    ' oPPTApp.WindowState = ppWindowMinimized

    ' Open our source PPT file, get a reference to it
    Set oPPTPres = oPPTApp.Presentations.Open(sPresentationFile)

    With oPPTPres     ' Do stuff ...
      ' Show the number of slides in the file, for example  
      msgbox .Slides.Count           
    End With

    ' Cleanup
    ' Close the presentation
    oPPTPres.Close
    ' Quit PPT
    oPPTApp.Quit
    ' Release variables
    Set oPPTPres = Nothing
    Set oPPTApp = Nothing

End Sub

url:http://www.pptfaq.com/FAQ00115_How_to_automate_PowerPoint_using_VB.htm

转载于:https://www.cnblogs.com/seasonzone/p/3806479.html