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

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

相关推荐
qq_205279052 天前
unity 读取PPT显示到屏幕功能
unity·游戏引擎·powerpoint
reasonsummer2 天前
【办公类-116-01】20250929家长会PPT(Python快速批量制作16:9PPT相册,带文件名,照片横版和竖版)
java·数据库·python·powerpoint
workflower3 天前
将图片中的图形转换为可编辑的 PPT 图形
java·开发语言·tomcat·powerpoint·个人开发·结对编程
孤客网络科技工作室4 天前
Python - 100天从新手到大师:第二十六天Python操作Word和PowerPoint文件
python·word·powerpoint
会飞的小菠菜6 天前
怎样将PPT幻灯片中所有的元素图片一键提取保存?
powerpoint·批量·jpg·提取图片·导出图片
会飞的小菠菜6 天前
快速将多个PPT、PPTX幻灯片统一转换成浏览器能直接打开的HTML网页文件
html·powerpoint·浏览器·ppt·格式转换·网页
百事牛科技8 天前
PPT如何退出“只读模式”?4 类场景的实用解锁方法
windows·powerpoint
会飞的小菠菜11 天前
如何将PPT文档转化为PDF
pdf·powerpoint·ppt·批量·格式转换
嘀咕博客11 天前
AIPPT:AI一键生成高质量PPT
人工智能·powerpoint·ai工具
zzywxc78711 天前
如何利用AI技术快速生成专业级的PPT和视频内容
人工智能·自动化·prompt·测试用例·powerpoint·音视频·ai编程