是否使用VBA更改Powerpoint演示文稿中的照片文件类型？

Sub ChangePictureFileType()
    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.Export shape.Name & ".jpg", ppShapeFormatJPG
                shape.Delete
                slide.Shapes.AddPicture shape.Name & ".jpg", msoFalse, msoTrue, shape.Left, shape.Top, shape.Width, shape.Height
                Kill shape.Name & ".jpg"
            End If
        Next shape
    Next slide
End Sub