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

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

相关推荐
yzx9910132 天前
豆包、Kimi、通义千问、DeepSeek、Gamma、墨刀 AI”六款主流大模型(或 AI 平台)生成 PPT 的完整流程
人工智能·powerpoint·墨刀
会飞的小菠菜2 天前
把多个 PPT 合并在一起,三步告别复制粘贴
powerpoint·合并·ppt·批量·幻灯片
ai工具集合3 天前
项目 PPT 卡壳?模型效果 + 训练数据展示模块直接填 ,451ppt.vip预制PPT也香
powerpoint
兰文彬5 天前
PPT转化成PDF脚本
pdf·powerpoint
灵犀物润7 天前
2025年AI PPT必修课-汇报中AI相关内容的“陷阱”与“亮点”
人工智能·powerpoint
会飞的小菠菜7 天前
如何一次性将多个PPT幻灯片批量转换成PDF文档
pdf·powerpoint·ppt·批量·格式转换
全年无休的IT老兵7 天前
使用AI工具一句话生成PPT
人工智能·powerpoint
WHS-_-20229 天前
如何设置PPTX的默认打开应用为PowerPoint
powerpoint
MiaoChuAI9 天前
秒出PPT vs 豆包AI PPT:实测哪款更好用?
人工智能·powerpoint
IT小农工9 天前
Windows 文件资源管理器无法预览文件内容word、ppt、excel、pdf
windows·word·powerpoint