VBA批量导入多个文件夹下的图片到PPT

最新推荐文章于 2023-05-10 19:15:18 发布

B2_F22

最新推荐文章于 2023-05-10 19:15:18 发布

阅读量1.3k

点赞数

分类专栏： VBA PPT 文章标签： vba ppt

本文链接：https://blog.csdn.net/rocket2020/article/details/116882575

版权

本文介绍了如何使用VBA编程自动化地将多个文件夹下的图片批量导入到PowerPoint演示文稿中，提升工作效率。

摘要由CSDN通过智能技术生成

1.需要导入到PPT的照片文件夹
要导入的图片文件夹列表

Coding

Sub InsertPicture()
Dim oPPT As Presentation
Dim oSlide As Slide
Dim nSlide As Byte
Dim oCL As CustomLayout
Dim Shp As Shape
Dim myFile
Dim filearr()
Dim filearr0()
Dim myPath As String
Dim sPath As String
Dim FileName As String
Dim files As String
Dim x As String
Set oPPT = PowerPoint.ActivePresentation
'sPath = "C:\Users\Desktop\VBA\Outbound Loading Audit 10.31\"
    
With oPPT
nSlide = .Slides.Count
    With oSlide
    
       For j = 2 To nSlide
            Set oSlide = ActivePresentation.Slides(j)
            oSlide.Select  '选定当前ppt
            '以上为遍历每个PPT
'-------------------------------------------------------------------------------------------

                myPath = Dir("C:\Users\jishen\Desktop\VBA\Outbound Loading Audit 10.31\", vbDirectory)   'vbDirectory只看文件夹
                Do While myPath <> ""
                    ReDim Preserve filearr0(k)
                    filearr0(k) = Split(myPath