Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 328
  • Last Modified:

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.
  • 3
  • 3
1 Solution
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: 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 ***********
Independent Software Vendors: 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!

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 :-)
cgibboAuthor Commented:
there was a link, didnt spot it!

thanks again

no war

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now