Hello Cindy

I have had a look at your WEB site and found some
interesting topics.
I do not know if this is the correct Discussions Group,
but I am looking for advise on Graphics.
I produced a Access database a while ago, and the general
plan or idea was to extract HPGL data from a Table using
a Third party application and with command buttons save
the graphics plot into a word document, and this works
fine although it is a bit cumbersome. In the VB program
shown later I wanted to clear the clipboard after
each "Copy Picture", so that I do not end up accidently
copy two plots the same to a word document, however it
does not appear to work now in Access 2002 or Word 2002.
That is one issue, the other issue and looking at your
WEB site, is it possible to retrieve the HPGL data within
the table and paste it into a word document as a Graphic
Plot, the third party application I am using is
Plottergeist which does the job well in producing the
graphic Plot. Here is the VB I use in Access 2002, the
program was written using Access 2000;
------------------------------------------------
Private Sub CopyPicture_Click()
'On Error GoTo Err_CopyPicture_Click
On Error Resume Next
Dim rSess As Recordset, iTemp As Integer
Dim WordObj As Word.Application
Set rSess = DBEngine(0).Databases(0).OpenRecordset
("Plot", dbOpenTable)
rSess.Index = "PrimaryKey"
rSess.Seek "=", Forms!Plot![Session ID]
   If rSess.NoMatch Then
       MsgBox "Invalid Session", vbOKOnly
   End If
'DoCmd.Hourglass True

Set WordObj = GetObject(, "Word.Application") 'An
existing instance of Microsoft word

If Err.Number <> 0 Then
  Set WordObj = CreateObject("Word.Application")
End If

WordObj.Visible = True
WordObj.Documents.Add Template:="c:\temp\plot.dot",
NewTemplate:=False 'Template in use
WordObj.Selection.GoTo What:=wdGoToBookmark,
Name:="EMI_EmissionPrecom_LogPlot_1" 'Bookmark Initial
WordObj.Selection.Paste

'Open, Empty and Close Clipboard
'No Clipboard API error Handling
Call OpenClipboard(0&)
Call EmptyClipboard
Call CloseClipboard
MsgBox "Clipboard Cleared!"

Exit_CopyPicture_Click:
   Exit Sub
   
Err_CopyPicture_Click:
   MsgBox Err.Description
   Resume Exit_CopyPicture_Click
   
End Sub
---------------------------------------------------
Private Sub RunPlottergeist_Click()
On Error GoTo Err_RunPlottergeist_Click
Dim Freq As String
Dim Plottergeist As PltgeistX
Set Plottergeist = CreateObject("Pltgeist.PltgeistX")

'Sets Plottergeist to run in mode for resultant Plot for
this application
Plottergeist.Window_State "NORM"
HPGL_Data.SetFocus
Plottergeist.AddHPGL (HPGL_Data.Text) 'HPGL data
Originating from HP Analyzer
Plottergeist.CopyGraphicToClipBoard 'Note. Max of 12 Plots

AppActivate "Microsoft Access"
DoCmd.GoToControl "Signal Pass/Fail"
'Freq.SetFocus

MsgBox ("Click To Close Plottergeist")
Plottergeist.CloseApp

Exit_RunPlottergeist_Click:
  Exit Sub
   
Err_RunPlottergeist_Click:
   MsgBox Err.Description
   'Resume Exit_RunPlottergeist_Click
   
End Sub

The Second Routine above runs the third application
retrieves data and paste's the graphic plot to the
clipboard, where it remains, the first routine shown
above opens a template for a new document and pastes the
plot from the Clipboard into a new titled document the
clipboard should then clear, although it appears no to
now.

Any help or advice on the above would be gratefully
appreciated.

Best Regards

Nick  

Hello Cindy

That appears to do the trick, thank you.

with the following string

{MERFEFIELD Number}    
{IncludePicture "c:\\Temp\\{MERGEFIELD Description}" /d}

Why is it that when I make the new document, the numbers
field displays the numbers ascending 1 to 4, immediately
but to obtain the correct images 1 through to 4 I need to
use Ctrl A and F9 to update?
Not to worry though, you have resolved the problem I had

Thanks

Nick