Hi zusammen,

ich habe eine Powerpoint Präsentation mit sehr vielen Tabellen. Diese Tabellen möchte ich alle als Bild in einem Ordner abspeichern. Es können 2-6 Tabellen je Folie vorhanden sein und diese müssten in der richtigen Reihenfolge von links oben nach rechts unten in einem Ordner abgelegt werden. Der Dateiname sollte am besten eine fortlaufende Zahl sein also die erste Tabelle heiß  "1.png", die zweite "2.png" usw.

Ich habe bisher folgenden Code zusammengehakt, der aber leider nicht funktioniert:

Sub Save_PowerPoint_Slide()
    Dim sImagePath As String
    Dim sImageName As String
    Dim sPrefix As String
    Dim oSlide As Slide '* Slide Object
    Dim shp As Shape
   
    Dim Ctr As Integer
    
    On Error GoTo Err_ImageSave
Ctr = 0

    sImagePath = "path"
    sPrefix = Split(ActivePresentation.Name, ".")(0)
    sImageName = sPrefix & "_" & oSlide.SlideIndex & ".png"
    
    For Each oSlide In ActivePresentation.Slides
    
    For Each shp In oSlide.Shapes
    If shp.Type = msoTable Then
        shp.Export sImagePath & "\" & sImageName & 1, ppShapeFormatPNG
        Ctr = 1 + 1
        
    End If
    Next shp
    
        Next oSlide

Err_ImageSave:
    If Err <> 0 Then
    MsgBox "no slides"
    End If
End Sub

Grüße