利用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相关的类库。