Export_Images_PP.vb

Sub Export_Images()
Dim Destination_Folder As String
Dim sld As Slide
Dim shp As Shape

Destination_Folder = "<Folder Path>"

For Each sld In ActivePresentation.Slides

    For Each shp In sld.Shapes
        
        If shp.Type = msoPicture Then
            shp.Export Destination_Folder & shp.Name & ".jpg", ppShapeFormatJPG
        End If
        
    Next shp
    
Next sld

End Sub