使用vba以ppt格式排列图片

Sub ArrangePictures()
    Dim slide As Slide
    Dim shape As Shape
    Dim leftPos As Double
    Dim topPos As Double
    
    ' 设置初始位置
    leftPos = 50
    topPos = 50
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 判断形状是否为图片
            If shape.Type = msoPicture Then
                ' 设置图片位置
                shape.Left = leftPos
                shape.Top = topPos
                
                ' 调整位置
                leftPos = leftPos + shape.Width + 50
                
                ' 如果图片超出幻灯片宽度，则换行
                If leftPos + shape.Width > slide.Width Then
                    leftPos = 50
                    topPos = topPos + shape.Height + 50
                End If
            End If
        Next shape
    Next slide
End Sub