object krijgt foutief formaat

[t0n]

Hey... ik heb een uitdaging en kom er niet goed uit.... wat is het probleem ?

Ik heb een Word-document met daarin een gekoppeld Excel-object (grafiek).. Als ik via een vba-script dit object bijwerk, dan wordt in excel de juiste grafiek (er zijn meerdere werkbladen) geselecteerd en in het word-document bijgewerkt. Echter, het formaat in Word is dan kleiner dan het zou moeten zijn. Dit formaat wordt pas hersteld als ik handmatig <F9> erop los laat.... helaas werkt het scripten van deze functietoets niet goed :evil: anders had ik dat zo op kunnen lossen...
heeft er iemand nog een optie ???

************* begin toelichting

Set Word = CreateObject("Word.Application")
word.Documents.Open DataPath + "TEST.dot"

Dim objXL As Excel.Application
On Error GoTo ErrorHandler
Set objXL = CreateObject("Excel.Application")
objXL.Application.Workbooks.Open ("Excelworkbook.xls")

objXL.Application.Sheets("Sheet1").Select
objXL.ActiveWorkbook.Save

word.Selection.GoTo What:=8, Which:=1, Count:=1, Name:=""
word.Selection.Fields.Update

------ nu ontstaat foute formaat
------- ik sla het document op met VBA
------- open via word het opgeslagen document
------- en via de F9-toets krijgt het object de juiste afmeting...

************* end