Embedding Existing Excel chart into VB6 form
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
|