Access Report Charts do not export to Word.

Posted on 2003-03-26
Medium Priority
Last Modified: 2008-02-01
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.
Question by:cgibbo
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3

Expert Comment

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


Author Comment

ID: 8215649
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?


Expert Comment

ID: 8217130
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: Graeme.Wilson@nationsbank.co.uk
  '  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 ***********
10 Questions to Ask when Buying Backup Software

Choosing the right backup solution for your organization can be a daunting task. To make the selection process easier, ask solution providers these 10 key questions.


Author Comment

ID: 8221605
hi Works great thanks

tricky part, how do i award pts??

Accepted Solution

dotthei earned 200 total points
ID: 8221647
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 :-)

Author Comment

ID: 8221669
there was a link, didnt spot it!

thanks again

no war

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Suggested Courses

764 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question