VBA - Zugriff auf Tabellen unter Powerpoint 2007

Computer: Software & Programmierung Office Software
1

Hallo Zusammen,

ich habe folgendes Problem:
Aus Access erstelle ich eine Powerpoint-Präsentation.
Diese PPP beinhaltet eine Tabelle in welche Daten eingetragen werden sollen.
Unter Access XP und 2003 habe ich keine Probleme, wird nachfolgender Code unter Office 2007 ausgeführt bekomme ich folgende Fehlermeldung:

Die Methode ‚Table‘ für das Objekt ‚Shapes‘ ist fehlgeschlagen.

Code-Auszug:
Set ce = Pres.Slides(i + 2).Shapes(3).Table.Cell(1, 2)

Wo ist das Problem? - Kann mir jemand weiterhelfen?

Danke

2

Hallo,

habe das Problem gefunden:
PP 2007 Ordnet die Shapes nicht in der Reihenfolge an, wie Office 2003/XP.
Somit war in dem Element kein Table drin. Ich habe mir folgende Lösung einfallen lassen, funktioniert halt nur, wenn man einen Table pro Folie hat.

With Pres.Slides(1).Shapes
For j = 1 To .count
If .Item(j).HasTable Then
Set myCell = .Item(j).Table.Cell(1, 1)
myCell.Shape.TextFrame.TextRange.Text = _
Replace(myCell.Shape.TextFrame.TextRange.Text, „“, _
„TESTXXX“)
End If
Next
End With