Public Sub Main()
    Dim ppApp As PowerPoint.Application
    Dim prsPres As Presentation
    Dim shpGraph As Shape
    Dim prsSld As Slide
    Dim prsShp  As Shape
    Dim oGraph As Object
    Dim oDataSheet As Object
    Dim prsHeadFoot As HeaderFooter
    Dim Index As Integer
    Dim Ws As Worksheet, Wb As Workbook
 
    Set ppApp = New PowerPoint.Application
    ppApp.Visible = msoTrue
    Set prsPres = ppApp.Presentations.Open(CurDir + "\" + "Byte.ppt")
    For Each prsSld In prsPres.Slides
    With prsSld
        For Index = 1 To prsSld.Shapes.Count
            With prsSld.Shapes(Index)
'                If .HasTextFrame = msoTrue Then Debug.Print 
' .TextFrame.TextRange.Text
                If .Type = msoEmbeddedOLEObject Then
                    Debug.Print .OLEFormat.ProgId
                    Set Wb = .OLEFormat.Object
                    Set Ws = Wb.Sheets(2)
                    Debug.Print Ws.Cells(1, 1)
                    Debug.Print
                End If
                If .HasTable = msoTrue Then Debug.Print .Table.Cell(1, _
                  1).Shape.TextFrame.TextRange.Text
                    Debug.Print ShapeType(.Type)
                    Debug.Print .Name
            End With
        Next Index
    End With
    Next prsSld
 
End Sub
 
Ich denke, das dürfte dann gehen, daß ich in diese Exceltabelle die Daten über _
  VB abspeichere. Soll jedesmal ein neues PP-Dokument erstellt werden? Wie _
  sieht die Eingangs-Excelmappe mit den Ausgangsdaten aus, evtl. kann man da _
  mit VB Summen bilden und die Daten mit PP aufbereiten.

NS