利用vba在excel中生成ppt

    'Declare variables    Dim PP As PowerPoint.Application    Dim PPPres As PowerPoint.Presentation    Dim PPSlide As PowerPoint.slide    Dim SlideTitle As String    'Open PowerPoint and create new presentation    Set PP = New PowerPoint.Application    Set PPPres = PP.Presentations.Add    PP.Visible = True        'Add new slide as slide 1 and set focus to it    Set PPSlide = PPPres.Slides.Add(1, ppLayoutChart)    PPSlide.Select        'Add the title to the slide    SlideTitle = "My First PowerPoint Slide"    PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle    ''Add the picture to the slide    PPSlide.Shapes.AddPicture("C:\Users\GZQ\Desktop\IMG_3428.JPG", msoCTrue, msoFalse, 0, 0).Select    'Save the slide    PPPres.SaveAs "MyFirstPresentation.pptx"    PP.Activate        'Memory Cleanup    Set PPSlide = Nothing    Set PPPres = Nothing

?在编写之前一定要引用powerpoint的类库，在VBA界面，工具->引用，找到Microsoft powerpoint相关的类库。

有勇气并不表示恐惧不存在，而是敢面对恐惧克服恐惧