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
>>>>
