[cacuoc334465c]

Originally Posted by

This is a code for vb6 programmers --------------------------------- Dim xl, wbk Private Sub Command1_Click() Set ThisChart = wbk.sheets(1).ChartObjects(1).Chart fName = CurDir & "\LiveChart.GIF" ThisChart.Export FileName:=fName, FilterName:="gif" Picture1.Picture = LoadPicture(fName) End Sub Private Sub Form_Load() Set xl = CreateObject("Excel.application") Set wbk = xl.workbooks.open(CurDir & "\LiveChart.xlsx") End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next xl.displayalerts = False wbk.save wbk.Close Set xl = Nothing End Sub

Cảm Æ¡n bạn vì bÃ*i viết rất bổ Ã*ch vÃ* thú vị