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
|