[RESOLVED] Exporting Image From Excel

[Pradeep1210]

Try this code. It will also delete the unwanted image as required in your comments:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim xlApp As Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet
    Dim olobj As Excel.Shape
    Dim xlCharts As Excel.ChartObjects
    Dim myChart As Excel.ChartObject
    Dim I As Long = 1
 
    xlApp = New Excel.ApplicationClass
    xlWorkBook = xlApp.Workbooks.Open("C:\Temp\Test.xlsx")
    xlWorkSheet = xlWorkBook.Worksheets("Sheet1")
    xlCharts = xlWorkSheet.ChartObjects
    'myChart = xlCharts.Add(10, 80, 300, 250)
 
    '<~~ There could be more pictures than one
    For Each olobj In xlWorkSheet.Shapes
        myChart = xlCharts.Add(10, 80, 300, 250)
        olobj.Copy()
        myChart.Activate()
        myChart.Chart.Paste()
        myChart.Chart.Export("C:\Temp\Image" & I & ".gif", "GIF", True)
        I = I + 1
        myChart.Delete()
    Next
    xlWorkBook.Close(SaveChanges:=False)
    xlApp.Quit()
 
    releaseObject(xlApp)
    releaseObject(xlWorkBook)
    releaseObject(xlWorkSheet)
End Sub