利用vba在excel中生成ppt！

iteye_5252

于 2013-03-02 13:50:31 发布

阅读量3.8k

点赞数 2

分类专栏： vba相关

本文链接：https://blog.youkuaiyun.com/iteye_5252/article/details/82480233

版权

vba相关专栏收录该内容

1 篇文章

订阅专栏

本文详细介绍了如何使用Visual Basic for Applications (VBA) 编程语言，通过编写简单的代码来创建PowerPoint演示文稿，并在代码中实现新建演示文稿、添加新幻灯片、设置幻灯片布局、添加标题、插入图片和保存演示文稿等基本功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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