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

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

相关推荐
热爱生活的五柒4 天前
ppt中形状能到visio编辑不
powerpoint
我命由我123454 天前
Excel - Excel 列出一列中所有不重复数据
经验分享·学习·职场和发展·word·powerpoint·excel·职场发展
依夏c5 天前
如何修改PPT输出图片的分辨率,提高清晰度
powerpoint
Kingsdesigner6 天前
PPT太丑?用InDesign制作电影级的交互式在线演示文档
图像处理·设计模式·powerpoint·设计师·交互设计·ppt·indesign
ST萌主8 天前
【PPT】导出高清晰度图片(dpi支持自定义)-超简单图文实操-修改注册表
powerpoint
qq_2052790514 天前
unity 读取PPT显示到屏幕功能
unity·游戏引擎·powerpoint
reasonsummer14 天前
【办公类-116-01】20250929家长会PPT(Python快速批量制作16:9PPT相册,带文件名,照片横版和竖版)
java·数据库·python·powerpoint
workflower14 天前
将图片中的图形转换为可编辑的 PPT 图形
java·开发语言·tomcat·powerpoint·个人开发·结对编程
孤客网络科技工作室15 天前
Python - 100天从新手到大师:第二十六天Python操作Word和PowerPoint文件
python·word·powerpoint
会飞的小菠菜17 天前
怎样将PPT幻灯片中所有的元素图片一键提取保存?
powerpoint·批量·jpg·提取图片·导出图片