Global AF As Access.Form
 
Sub export()
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ~~~~
' Library OWC10
' C:\Program Files\Comafn Files\Microsoft Shared\Web Components\10\OWC10.DLL
' Microsoft Office XP Web Components
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ~~~~
 
Dim oCSP As OWC10.ChartSpace
 
Set AF = Forms(CurrentProject.AllForms("dTUR").Name)
 
Set oCSP = AF.ChartSpace
 
oCSP.ExportPicture Environ$("Temp") & "\chart.gif", "GIF", 800, 500
 
End Sub

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ~~~~
' Library OWC11
' C:\Program Files\Common Files\Microsoft Shared\Web Components\11\OWC11.DLL
' Microsoft Office Web Components 11.0
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ~~~~
Dim oCSP As OWC11.ChartSpace

Set oCSP = AF.ChartSpace

Set oCSP = AF.ChartSpace.Object