Ahh... another question that I can't really answer, but can possibly
help.... and obviously blow off a little more work... woo hooo....
Here's a GREAT link for you to help you in your search for MS Graph
help...
(this is actually for 97, but, you can find later versions from there)
http://msdn.microsoft.com/archive/de.../D6/S5B5EF.asp
BUT....
If you know what you want to do, and you can do it in Excel, do like
Tim Marshall said...
1) Export data to excel
2) Record a macro to do what you want
3) convert macro into a string (really, it's not that hard)
4) Run macro after exporting information from Access!
i.e... here's a quickie for you, to learn how to do what I just said...
(copy and paste into a module and watch it do it's THING! :D )
Private Sub ExcelTest()
Dim XLS As Object, Wkb As Object, strCode As String
Dim X As Integer, Y As Integer, Z As Integer
'XLS is our application object
Set XLS = CreateObject("E xcel.Applicatio n")
XLS.Application .Visible = True
XLS.Application .workbooks.Add
'Wkb is our worksheet object
Set Wkb = XLS.Application .activeworkbook .worksheets(1)
'Fill our worksheet with some information
X = 0
For X = 1 To 10
For Y = 1 To 10
Z = Y * X
Wkb.cells(X, Y) = Z
Next Y
Next X
'Now make the macro
strCode = "Sub MakeChart()" & vbcrlf & _
" Charts.Add" & vbcrlf & _
" ActiveChart.Cha rtType = xlColumnCluster ed" & vbcrlf & _
" ActiveChart.Set SourceData Source:=Sheets( " & Chr(34) & "Sheet1" &
Chr(34) & ").Range(" & Chr(34) & "A1:J10" & Chr(34) & "),
PlotBy:=xlRows" & vbcrlf & _
" ActiveChart.Loc ation Where:=xlLocati onAsNewSheet, Name:=" &
Chr(34) & "Tada!" & Chr(34) & vbcrlf & _
" With ActiveChart" & vbcrlf & _
" .HasTitle = True" & vbcrlf & _
" .ChartTitle.Cha racters.Text = " & Chr(34) & "Tada!" & Chr(34)
& vbcrlf & _
" .Axes(xlCategor y, xlPrimary).HasT itle = False" & vbcrlf & _
" .Axes(xlValue, xlPrimary).HasT itle = False" & vbcrlf & _
" End With" & vbcrlf & _
"End Sub"
'Add the macro to the workbook
XLS.activeworkb ook.VBProject.V BComponents.Ite m(1).CodeModule .AddFromString
strCode
'Run the macro! :D
XLS.Application .Run "Thisworkbook.M akeChart"
End Sub
(I've been dieing to show taht to someone :D )