Access Report Charts do not export to Word.

I have a report in Access 2000 that contains Pie charts and Bar Charts.

I need to publish this report to Word.  The charts do not appear in the Word document after I publish it to Word.

Any way of making this happen?  Snapshot Viewer is not really an option as the client has specifically asked for the report in Word Format to allow them edit features of the report.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Report thru Excel and make your charts there, embed in Word Doc.

cgibboAuthor Commented:
This database will generate around 10 charts per report and one report per customer and there will be hundreds of customers!!

I think to generate in Excel and then transfer to Word would be very labour intensive and lack automation??

Maybe what I am trying to do may not be possible as I understand the export to Word feature is a little dodge, or have I misunderstood your proposed solution?

If you choose to use the following code, you can automate you r project by using a link image field in your Word document.

To export out the chart as a JPG image, you can use this code.

'******** Code Start *********
' This code was originally written by Graeme Wilson.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
' Code Courtesy of
' Graeme Wilson
Private Sub cmdExportGraph_Click()
  '     Purpose: Export Graph
  '      E-Mail:
  '  Programmer: Graeme Wilson
On Error GoTo cmdExportGraph_Click_Err
    Dim strErrMsg As String 'For Error Handling
    Dim oleGrf As Object
    Dim strFileName As String
    Dim strFilter As String
    Dim lngFlags As Long
    Set oleGrf = Me.OLEchart.Object
    strFileName = ahtCommonFileOpenSave(Flags:=lngFlags, InitialDir:="C:\", _
        Filter:="JPEG Files (*.jpg)", FilterIndex:=1, DefaultExt:="jpg", FileName:="MyGraph", _
        DialogTitle:="Save the Graph", OpenFile:=False)

oleGrf.Export FileName:=strFileName
MsgBox vbCrLf & "The Chart " & strFileName & " has been exported", _
        vbInformation + vbOKOnly, "Chart Exported :"

Set oleGrf = Nothing
    Exit Sub

    Select Case Err
        Case 1004   ' Export Cancelled
            Resume cmdExportGraph_Click_Exit
        Case Else
            strErrMsg = strErrMsg & "Error #: " & Format$(Err.Number) & vbCrLf & vbCrLf
            strErrMsg = strErrMsg & "Error Description: " & Err.Description & vbCrLf
            MsgBox strErrMsg, vbInformation, "cmdExportGraph_Click"
            Resume cmdExportGraph_Click_Exit
    End Select

End Sub
'********* Code End ***********
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

cgibboAuthor Commented:
hi Works great thanks

tricky part, how do i award pts??
I truly do not know - You likely have some option like "Accept Answer" either in "Edit Your Question" or maybe in the upper left quadrant of this page.

I wish I knew - I hope that my lack of THIS knowledge does not affect my grade :-)

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
cgibboAuthor Commented:
there was a link, didnt spot it!

thanks again

no war
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.