VBA: Indsæt grafer fra xl i word

Hi

Jeg har behov for at indsætte en række grafer fra xl i et word dokument på en præcis placering. Jeg kan godt få nedenstående til at virke i Office 2000, men ikke i Office 2002/XP (skal desværre anvendes i begge udgaver). Med Office 2002/XP får jeg fejlen: "Grænsen for indekset over den angivne samling er overskredet"

Jeg indsætter graferne i word-dokumentet med:

For i = 1 To 6
    Sheets(Grupper(i)).ChartArea.Copy
    With objWord.Selection
        .Goto what:=wdGoToBookmark, Name:=BogmærkeGraf(i)
        .PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdFloatOverText, DisplayAsIcon:=False
    End With
Next i


og formatere billederne ved hjælp af shapes-samlingen:


With objWord.ActiveDocument
    For i = 1 To 6
        .Shapes(i).Height = 121.3
        .Shapes(i).Width = 194.75


Håber I kan hjælpe med en løsning. Er der måske en anden og bedre måde at indsætte graferne på?

vh. asol