objExcel = CreateObject("Excel.Application")
        objExcel.Visible = False
        oWbk = objExcel.Workbooks.Open(TabP)
        oWks = oWbk.Worksheets("Diagramm")
        Diag = oWks.ChartObjects(1)
 
 
        Diag.CopyPicture(objExcel.XlPictureAppearance.xlScreen, _
          objExcel.XlCopyPictureFormat.xlBitmap, _
          objExcel.XlPictureAppearance.xlScreen)
 
 
        Dim img As New Image
        img.Source = Clipboard.GetImage()
 
        'Bild in die Picturebox packen
        PictureBox1.Image = img
 
 
        oWbk.Close()
        objExcel.Quit()
        oWks = Nothing
        oWbk = Nothing
        objExcel = Nothing