Dim oExcelApp As New ExcelApplication()
Dim wb As Workbook = oExcelApp.Create(FileFormat.Xlsx)
Dim chartOne As Chart = WB[0].Charts[0]
Dim fstream As New FileStream("C:\temp\outfile.xls", FileMode.Create)
chartOne.SaveImage(fstream, System.Drawing.Imaging.ImageFormat.PngPngm, 600, 400) |