Thema Datum  Von Nutzer Rating
Antwort
Rot Powerpoint-Abschnitte als PDF speichern
 30.08.2018 09:45:48 Chris
NotSolved

Ansicht des Beitrags:
Von:
Chris		 Datum:
30.08.2018 09:45:48		 Views:
826		 Rating:
     
Antwort:
  Ja
Thema:
Powerpoint-Abschnitte als PDF speichern

Hallo Zusammen,

ich habe bisher ein Makro, das alle Folien einzeln mit ihrem Titel abspeichert (als jpg), allerdings nicht die Zusammenhänge erkennt. Die Folien sind in den ppt-Abschnitten gegliedert.

Ich finde keine Lösung / suche ein Makro, dass alle Folien, welche sich unter einem Abschnitt befinden in einer PDF speichert, mit dem Namen des Abschnittes.

Vielen Dank vorab.

 

Anbei das bisher verwendete Makro [aus einem Forum]:

Sub SaveEach()

    Dim oPresentation As Presentation
    Dim oSlide As Slide
    Dim oShape As Shape
    Dim sFilename As String

    Set oPresentation = ActivePresentation
    
    For Each oSlide In oPresentation.Slides
        For Each oShape In oSlide.Shapes
        With oShape
            If .Type = msoPlaceholder Then
                If .PlaceholderFormat.Type = ppPlaceholderCenterTitle Or _
                    .PlaceholderFormat.Type = ppPlaceholderTitle Then
                    If .HasTextFrame Then
                        If .TextFrame.HasText Then
                            sFilename = Left(LCase(.TextFrame.TextRange.Text), 25) & ".jpg"
                            On Error Resume Next
                            Kill sFilename
                            On Error GoTo 0
                            oSlide.Export sFilename, "jpg"
                            End If
                        End If
                    End If
                End If
        End With
        Next
    Next
 

End Sub

 

 

 

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 Powerpoint-Abschnitte als PDF speichern
 30.08.2018 09:45:48 Chris
NotSolved