Office: Word-VBA 2010

Hallo zusammen,

ich möchte aus Excel Zahlen als Grafik in ein Word-Dokument einfügen.
Die Grafik soll beim einfügen auf eine Skalierung bei Höhe und Breite auf
100 % gesetzt werden.

Folgenden Code nutze ich dazu, der in Word 2003 wunderbar funktioniert:

Code:

selection.pasteSpecial Link:= True, DataType:=wdPasteOLEObject, _
Placement:= wdInLine, DisplayAsIcon:=False

on error resume next
   dim i as integer
  For i = 1 to Activedocument.InlineSpapes.count
      with ActiveDocument.InlineShapes(i)
          .scaleHeight = 100
          .scaleWidth = 100
  end with 

Das durchlaufen der Grafik macht in Word 2010 Probleme. Die Codezeilen ".scaleHeight" und
".scaleWidth" werden zwar durchlaufen, die Werte werden aber nicht auf 100 gesetzt, sondern
behalten den Wert 0.

Warum greift scaleHeight und scaleWidth in word 2010 nicht? Gibt es da Alternativen?

Vielen Dank für jegliche Hilfe.

Grüße
Annika