Powerpoint VBA选择图像文件夹，将这些图像放在幻灯片上

Sub InsertImagesFromFolder()
    Dim folderPath As String
    Dim imagePath As String
    Dim slide As Slide
    Dim shape As Shape
    
    ' 设置图像文件夹路径
    folderPath = "C:\Images"
    
    ' 创建新的幻灯片
    Set slide = ActivePresentation.Slides.Add(1, ppLayoutBlank)
    
    ' 循环遍历图像文件夹中的所有图像文件
    imagePath = Dir(folderPath & "\*.jpg")
    Do While imagePath <> ""
        ' 在幻灯片上插入图像
        Set shape = slide.Shapes.AddPicture(FileName:=folderPath & "\" & imagePath, _
            LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100)
        
        ' 调整图像大小和位置
        shape.LockAspectRatio = msoTrue
        shape.Width = 400
        shape.Height = 300
        shape.Left = (slide.Width - shape.Width) / 2
        shape.Top = (slide.Height - shape.Height) / 2
        
        ' 获取下一个图像文件
        imagePath = Dir
    Loop
End Sub