尝试使用VBA在ppt中自动裁剪图像

Sub CropImages()
    Dim slide As Slide
    Dim shape As Shape
    
    ' 循环遍历所有幻灯片
    For Each slide In ActivePresentation.Slides
        ' 循环遍历幻灯片上的所有形状
        For Each shape In slide.Shapes
            ' 检查形状是否为图片
            If shape.Type = msoPicture Then
                ' 裁剪图片到其原始尺寸
                shape.PictureFormat.CropLeft = 0
                shape.PictureFormat.CropRight = 0
                shape.PictureFormat.CropTop = 0
                shape.PictureFormat.CropBottom = 0
            End If
        Next shape
    Next slide
End Sub