VBA批量插入图片到PPT,一页一图

vbnet 复制代码
Sub InsertPicturesIntoSlides()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object
    Dim strFolderPath As String
    Dim strFileName As String
    Dim i As Integer
    
    ' 设置图片文件夹路径
    strFolderPath = "C:\您的图片文件夹路径\" ' 请替换为您的图片文件夹路径
    
    ' 获取文件夹中的第一个文件
    strFileName = Dir(strFolderPath & "*.jpg") ' 假设图片为jpg格式,如有需要请更改文件类型
    
    ' 检查是否有图片
    If strFileName = "" Then
        MsgBox "没有找到图片文件。"
        Exit Sub
    End If
    
    ' 创建PowerPoint应用对象
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    
    ' 添加新的演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    i = 1 ' 初始化幻灯片编号
    
    ' 循环插入每张图片到新的幻灯片
    Do While strFileName <> ""
        ' 添加新的幻灯片
        Set pptSlide = pptPres.Slides.Add(i, ppLayoutBlank)
        
        ' 在新的幻灯片中插入图片
        With pptSlide.Shapes.AddPicture(FileName:=strFolderPath & strFileName, _
                                        LinkToFile:=msoFalse, _
                                        SaveWithDocument:=msoCTrue, _
                                        Left:=0, _
                                        Top:=0, _
                                        Width:=pptSlide.Master.Width, _
                                        Height:=pptSlide.Master.Height)
            .LockAspectRatio = msoTrue
        End With
        
        ' 获取下一个文件
        strFileName = Dir()
        i = i + 1
    Loop
    
    ' 清理
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub

注意"宏安全性"设置,改为启用和信任

相关推荐
不坑老师2 小时前
利用不坑盒子的Copilot,快速排值班表
microsoft·word·powerpoint·excel·copilot·wps
中杯可乐多加冰2 小时前
【AI落地应用实战】AIGC赋能职场PPT汇报:从效率工具到辅助优化
人工智能·深度学习·神经网络·aigc·powerpoint·ai赋能
资讯分享周13 小时前
扣子空间PPT生产力升级:AI智能生成与多模态创作新时代
人工智能·powerpoint
qq_393828221 天前
办公文档批量打印器 Word、PPT、Excel、PDF、图片和文本,它都支持批量打印。
windows·word·powerpoint·excel·软件需求
cooldream200913 天前
华为云Flexus+DeepSeek征文|基于华为云一键部署Dify LLM 应用构建 PPT 生成助手的开发与实践
华为云·powerpoint·dify
CodeCraft Studio14 天前
ONLYOFFICE Jira 集成应用程序 4.0.0 发布,含新的文件格式支持等多个重大更新!
pdf·powerpoint·onlyoffice·jira
2501_9205525615 天前
Mac电脑 Office 2024 LTSC 长期支持版(Excel、Word、PPT)
macos·word·powerpoint·excel·mac
MiaoChuPPT20 天前
告别手动做PPT!4款AI工具实现自动化生成
人工智能·自动化·powerpoint
余俊晖20 天前
使用RAG的思想进行PPT生成的框架思路-SlideCoder
powerpoint·ppt·rag
AI设计小站20 天前
AI 工具打造专业级 PPT 配图:从文字到视觉的高效转化指南
人工智能·信息可视化·powerpoint