Automated (programmed) saving multiple data row from Excel spreadsheet as images...

"And when saving images, the name of the image would be the content of a line-by-line text record in the first two columns (A, B) of the table ..."

I've found a solution to this:

Sub SaveImages()

'the location to save all the images
Const destFolder$ = "C:\users\...\desktop\"

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("sheet1")

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

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

Dim shp As Shape, shpName$
For Each shp In ws.Shapes
shpName = destFolder & shp.TopLeftCell.Offset(1, 1) & ".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

The following is not solved:
Cell A1 content + Cell B1 content + Cell C1 => merged should contain a single one image! Then more A2 + B2 + C2 = also an image, etc ...

I waiting for suggestions, ideas?