Hallo,
ich habe eine Word Datei mit Diagrammen.
Diese Diagramme will ich per VBA Makro durchsuchen und in den zugehörigen Tabellen eine Änderung machen.
Das mache ich folgendermassen:
Dim MyTB As InlineShape
Dim i As Long
Dim o As Object
For Each MyTB In ActiveDocument.InlineShapes
MyTB.Activate
Set o = MyTB.OLEFormat.Object
For i = 1 To 10
o.Sheets("Tabelle1").Cells(i, i) = 10
Next i
Next MyTB
Mit Office 2003 funktioniert das ganze perfekt.
Jedoch hat ein Anwender nun Office 2007 bzw. 2010 und bei beiden funktioniert das nicht mehr. Bei dem Befehl: "MyTB.Activate" kommt eine Fehlermeldung.
Die Methode Activate für das Objekt InlineShape ist fehlgeschlagen.
Mein Ziel ist, dass ich auf einen bestimmten InlineShape zugreifen kann, und dann die hinterlegten Daten in dem Makro ändern kann.
Kann mir jemand sagen, ob oder wie das mit Office 2007/2010 geht?
Vielen Dank
Thomas |