If there are multiple images in an Excel file which you want to save in a folder location, here's what you can do to automate the process:

1. Open Visual Basic Editor (Press Alt + F11)
2. Insert a Module (Insert > Module)
3. Copy paste below code in the Module
4. Close Visual Basic Editor
5. Press Alt + F8 >> Select Save_Images and hit 'Run'

PowerPoint is used as an intermediate to copy all images and eventually save in a folder.

Code:
Sub Save_Images()

    'The location location where the images need to be saved
    Const destFolder$ = "C:\Users\Owner\Desktop\Images\"

    'Name or Index of the sheet from where the images are to be extracted
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)   'Index 1 means the first sheet in the workbook

    Dim ppt As Object, ps As Variant, slide As Variant

    Set ppt = CreateObject("PowerPoint.application")
    Set ps = ppt.presentations(1)
    Set slide = ps.slides.Add(1, 1)

    Dim shp As Shape, shpName$
    For Each shp In ws.Shapes
        shpName = destFolder & shp.TopLeftCell.Offset(0, -2) & ".png"
        shp.Copy
        
        With slide
            .Shapes.Paste
            .Shapes(.Shapes.Count).Export shpName, 2
            .Shapes(.Shapes.Count).Delete
        End With
    Next shp

    With ps
        .Saved = True
        .Close
    End With
    ppt.Quit
    Set ppt = Nothing

End Sub