I usually do it using pastespecial but my expertise is mostly in excel
>Victor,
>
>that's what I've been trying, but I can't get the picture to paste where the bookmark is. It's probably also a lack of familiarity with how to do this in Word itself that's part of the problem.
>
>How would I select a bookmark, then paste an object in Word such that the bookmark would get replaced by the picture?
>
>
>>Frank:
>>Put a suspend after the ObjXLsheet.ChartObjects(1).copy and see if you can open word and paste normally. If so save what you did in a macro and reproduce it in code.
>>
>>>Sorry, I copied the code out of the oleaut1.scx sample form from the Solutions that came with VFP and the comments that are there, that I left out are:
>>>
>>>**** Because the excel objects were already RELEASEd
>>>**** the graph must be pasted w/o a link.
>>>**** It is pasted as a PICTURE instead of a GRAPH
>>>**** To paste as a link, you would use this command
>>>**** objWDdoc.editpaste
>>>**** AND you would have to make sure the Excel Objects
>>>**** were not RELEASEd and that Excel was still running
>>>
>>>So I don't think that is it.
>>>
>>>The rest of the code in the sample uses Word.Basic, but I don't think I could use that to open a template and replace bookmarks I am trying to adapt that code to using a Word.Application. Here's that code:
>>>
>>>
#DEFINE APPSHOW_WORDUS_LOC "appshow"
>>>#DEFINE FILENEW_WORDUS_LOC "filenewdefault"
>>>#DEFINE INSERT_WORDUS_LOC 'insert("Here is your graph!")'
>>>#DEFINE EDITPASTESPECIAL_WORDUS_LOC "editpastespecial(,,,,'PICT')"
>>>
>>>objWDdoc=crea("word.basic")
>>>objwddoc.&APPSHOW_WORDUS
>>>objwddoc.&FILENEW_WORDUS
>>>objwddoc.&INSERT_WORDUS
>>>objwddoc.&EDITPASTESPECIAL_WORDUS>>>
>>>>Maybe if you don't close excel before the paste (just a wild guess)
>>>>>Hi,
>>>>>
>>>>>I am trying to create a chart in Excel and then place it in a Word document.
>>>>>
>>>>>I have created the chart and put a bookmark in the document, but the image of the chart is not pasted where the bookmark is. Here's my code:
>>>>>
>>>>>
loWord = CREATEOBJECT("Word.Application")
>>>>>SCAN
>>>>> loWord.Documents.Add("GroupPlan.dot")
>>>>> m.loDoc = m.loWord.ActiveDocument
>>>>>
>>>>> objXLsheet=CreateObject("Excel.Sheet")
>>>>>
>>>>> * Excel 97 Automation change
>>>>> * CreateObject() returns Object instead of Sheet1
>>>>> IF UPPER(objXLsheet.Name)= "OBJECT"
>>>>> lHasExcel97 = .T.
>>>>> objXLsheet = objXLsheet.Sheets[1]
>>>>> ELSE
>>>>> lHasExcel97 = .F.
>>>>> ENDIF
>>>>>
>>>>> m.lnRowCount = 0
>>>>> SCAN
>>>>> m.lnRowCount = m.lnRowCount + 1
>>>>> objXLsheet.Cells[m.lnRowCount,1].Value = c_TurnaroundChart.Y
>>>>> objXLsheet.Cells[m.lnRowCount,2].Value = c_TurnaroundChart.M
>>>>> objXLsheet.Cells[m.lnRowCount,3].Value = c_TurnaroundChart.TotalReceived
>>>>> objXLsheet.Cells[m.lnRowCount,4].Value = c_TurnaroundChart.AvgTurnaround
>>>>> ENDSCAN
>>>>>
>>>>> objChart1 = objXLsheet.ChartObjects.Add(100, 100, 200, 200)
>>>>>
>>>>> objxlsheet.chartobjects(1).chart.;
>>>>> chartwizard(objxlsheet.range(objxlsheet.cells(1,1),objxlsheet.cells(m.lnRowCount,4)),;
>>>>> -4100,4,1,0,1,1,"","","","")
>>>>> *!* objXLsheet.application.visible=.T.
>>>>>
>>>>> ObjXLsheet.ChartObjects(1).select
>>>>> ObjXLsheet.ChartObjects(1).copy
>>>>>
>>>>> IF !m.lHasExcel97
>>>>> objXLsheet.application.quit
>>>>> ENDIF
>>>>> release objXLsheet
>>>>>
>>>>> IF m.loDoc.Bookmarks.EXISTS("TurnAroundChart")
>>>>> m.loDoc.Bookmarks("TurnAroundChart").SELECT
>>>>> m.loDoc.APPLICATION.Selection.Paste()
>>>>> ENDIF
>>>>>
