[Access2002]Exporteren van grafiek/diagram

[Briefcase]

Ik wil graag een rapport exporteren met daarin een Grafiek cq Diagram. Zoals bekend stuurt Access met de export naar Word geen afbeeldingen mee.

Ik heb begrepen dat het mogelijk moet zijn om het naar jpg of gif te exporten met behoud van de grafiek.

de volgende code heb ik maar bij het drukken op de knop gebeurt er niets. Geen foutmelding what so ever.

code:

Private Sub cmdExport_Click()

Dim strFile As String
strFile = InputBox("Please Enter a valid path and file name (ie:
c:\temp\graph.jpg)", "Save As?", "c:\temp\graph.jpg")

Dim gObj As Object
'the graph in this example is named "Graph1"
Set gObj = Me.Graph1.Object
gObj.Export strFile, "JPEG" ' "GIF" also available
Set gObj = Nothing
Me.Graph1.Action = acOLEClose
End Sub