Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zum Exportieren von Tabellen als Bilder in Powerpoint
12.04.2021 17:21:04 Tiro
Solved
12.04.2021 18:53:40 Gast22389
Solved
12.04.2021 19:16:28 Tiro
NotSolved
12.04.2021 19:33:14 ralf_b
Solved
12.04.2021 20:00:42 Gast68811
NotSolved

Ansicht des Beitrags:
Von:
Tiro
Datum:
12.04.2021 17:21:04
Views:
79
Rating: Antwort:
 Nein
Thema:
Makro zum Exportieren von Tabellen als Bilder in Powerpoint

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 

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zum Exportieren von Tabellen als Bilder in Powerpoint
12.04.2021 17:21:04 Tiro
Solved
12.04.2021 18:53:40 Gast22389
Solved
12.04.2021 19:16:28 Tiro
NotSolved
12.04.2021 19:33:14 ralf_b
Solved
12.04.2021 20:00:42 Gast68811
NotSolved