22-03-13, 04:35 AM
حاوت ايضا بالاكواد دية
xlApp.ActiveSheet.ChartObjects("Chart 1").Activat()
xlApp.ActiveChart.ChartArea.Copy()
excelWorksheet.Range("B27").Select()
xlApp.Sheets("Sheet1").Select()
xlApp.ActiveSheet.ChartObjects("Chart 1").Activate()
xlApp.Sheets("Sheet2").Select()
xlApp.ActiveSheet.Pictures.Paste.Select()
xlApp.ActiveSheet.ChartObjects("Chart 1").Activat()
xlApp.ActiveChart.ChartArea.Copy()
excelWorksheet.Range("B27").Select()
xlApp.Sheets("Sheet1").Select()
xlApp.ActiveSheet.ChartObjects("Chart 1").Activate()
xlApp.Sheets("Sheet2").Select()
xlApp.ActiveSheet.Pictures.Paste.Select()
