用VBA创设PPT文件_VBA

用VBA创建PPT文件
我想在Excel中用VBA创建一个PPT文件，并打开这个PPT文件，该如何编程？
------解决方案--------------------------------------------------------

Sub CreatePPT()
    '将PPT应用程序的一个实例赋值给一个对象变量
    Dim ptApp As Object
    Set ptApp = CreateObject("PowerPoint.Application")
    
    '新建一个演示文稿并将其赋值给一个对象变量
    Dim ptPre As Object
    Set ptPre = ptApp.Presentations.Add
    
    '在当前新建的演示文稿中新建一张版式为“空白”的幻灯片，并将其赋值给一个对象变量
    Dim ptSld As Object
    Set ptSld = ptPre.Slides.Add(1, 12)
    
    '让PPT应用程序可见，这样可以看到新建的演示文稿
    ptApp.Visible = msoTrue
    
    '释放之前创建的所有对象变量占用的内存空间
    Set ptSld = Nothing
    Set ptPre = Nothing
    Set ptApp = Nothing
End Sub