엑셀 차트를 이미지로 저장하는 방법 VB Net로 Invoke Code 소스

Dim xApp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim xWorkbook As Microsoft.Office.Interop.Excel.Workbook = Nothing
Dim xlRng As Microsoft.Office.Interop.Excel.Range = Nothing

'기본 변수 선언

xApp = New Microsoft.Office.Interop.Excel.Application
xApp.DisplayAlerts = False
'엑셀 실행
xApp.Visible = False
'백그라운드 실행

xWorkbook = xApp.Workbooks.Open(In_FIleName)

                                                                  '피일명 명시'
'워크북 오픈
With CType(xWorkbook.Sheets(In_SheetName), Microsoft.Office.Interop.Excel.Worksheet)

                                                    '시트명 명시'

'-----처리 시작----'
.Activate
 xlRng = .Range("C4:E6")
 xlRng.CopyPicture(Appearance:=Microsoft.Office.Interop.Excel.XlPictureAppearance.xlScreen, Format:=Microsoft.Office.Interop.Excel.XlCopyPictureFormat.xlBitmap)
 
  With CType(.ChartObjects, Microsoft.Office.Interop.Excel.ChartObjects).Add(Left:=CDbl(xlRng.Left), Top:=CDbl(xlRng.Top), Width:=CDbl(xlRng.Width), Height:=CDbl(xlRng.Height))
 
 .Chart.Paste
     .Chart.Export(FileName:=In_ImagePath, Filtername:="JPG")

                                                  '이미지 저장할 경로와 파일명 명시'

End With
Syste m.Threading.Thread.Sleep(10000) 
End With

xWorkbook.Close(SaveChanges:=False)
xApp.Quit