Export Pictures Excel VBA

Question

I\'m having trouble trying to select and export all pictures from a workbook. I only want the pictures. I need to select and save all of them as:\"Photo 1\", \"Photo 2\", \"

Answer 1

Ross's method works well but using the add method with Chart forces to leave the currently activated worksheet... which you may not want to do.

In order to avoid that you could use ChartObject

Public Sub AddChartObjects()

    Dim chtObj As ChartObject

        With ThisWorkbook.Worksheets("A")

            .Activate

            Set chtObj = .ChartObjects.Add(100, 30, 400, 250)
            chtObj.Name = "TemporaryPictureChart"

            'resize chart to picture size
            chtObj.Width = .Shapes("TestPicture").Width
            chtObj.Height = .Shapes("TestPicture").Height

            ActiveSheet.Shapes.Range(Array("TestPicture")).Select
            Selection.Copy

            ActiveSheet.ChartObjects("TemporaryPictureChart").Activate
            ActiveChart.Paste

            ActiveChart.Export Filename:="C:\TestPicture.jpg", FilterName:="jpg"

            chtObj.Delete

        End With

End Sub