HI!!!
I want to design a chart on client using data from views. i have tried adding Microsoft excel chart object on my form and added code to retrieve data from view and adding using following code.
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim Excel As Variant,Chart As Variant
Dim sheet As Variant
Set uidoc = ws.CurrentDocument
Set Excel = uidoc.GetObject("Microsoft Office Excel Chart")
Set chart = Excel.ActiveChart
Set sheet = Excel.Worksheets("Sheet1")
'chart.ChartType = -4102
'chart.Elevation = 10
Dim s As New NotesSession
Dim db As NotesDatabase
Set db=s.CurrentDatabase
Dim view As NotesView
Set view=db.GetView("P-HIST")
Dim doc As NotesDocument
Set doc=view.GetFirstDocument
sheet.Cells(1,1) = "Date"
sheet.Cells(1,2) = "DU"
sheet.Cells(1,3) = "DUL"
sheet.Cells(1,4) = "PL"
sheet.Cells(1,5) ="PUR"
sheet.Cells(1,6) = "STOR"
sheet.Cells(1,7) = "AC"
i=2
While Not doc Is Nothing
sheet.Cells(i,1) = doc.OriginalModTime(0)
i=i+1
sheet.Cells(i,2) = doc.DN(0)
sheet.Cells(i,3) = doc.DUL(0)
sheet.Cells(i,4) = doc.PL(0)
sheet.Cells(i,5) =doc.PUR(0)
sheet.Cells(i,6) = doc.STOR(0)
sheet.Cells(i,7) = doc.AC(0)
Set doc=view.GetNextDocument(doc)
Wend
This shows half of the data in chart only 2 rows.