sushanta kr dey 21.Jan.09 05:40 AM a Web browser Applications Development7.0.1Windows 98
Hi all i have written a code to export to excel and to displaying the total marks.Now here i want to generate graph (i.e total number of marks).The code is working fine it is exporting as well as displaying the total marks but not generating graph can anyone help me. Here is the code
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim uiview As NotesUIView
Dim ws As New NotesUIWorkspace
Dim collection As NotesDocumentCollection
Dim column As NotesViewColumn
Set db=session.currentDatabase
Print "Please Wait as the Excel Spreadsheet is being created..."
Set view=db.GetView("transfer")
Set doc=view.GetFirstDocument
Dim rownum As Integer,currentdocnum As Long
rownum = 4
currentdocnum=1
Dim xlapp,xlWork
Set xlapp = CreateObject( "Excel.Application" )
xlapp.Workbooks.add
Set xlWork = xlapp.ActiveWorkbook
xlapp.visible=True