Leider nochmal Powerpoint und VBA.
Ich habe diesen Code gefunden, der auch funktioniert.
Allerdings würde ich hier anstatt in eines Meldefensters, die Foliennummer eine nach der anderen einklimpern, sondern im Code vorgeben wollen.
Weiß jemand wie man die Zeile, vermutlich ab ""myArray(i) = InputBox("Enter the slide number, press ok to enter another")"" anpassen muss?
Private Sub CommandButton5_Click()
Dim myArray() As Integer
Dim lngSecond As Integer
Dim strPath As String
Dim ipos As Integer
Dim SlidesCount As Integer
Dim i As Integer
If ActivePresentation.Path = "" Then
MsgBox "Save me first"
Exit Sub
End If
ipos = InStrRev(ActivePresentation.FullName, ".")
strPath = Left(ActivePresentation.FullName, ipos - 1) & ".pdf"
SlidesCount = 7 'Anzahl der Seiten
For i = 1 To SlidesCount
ReDim Preserve myArray(i)
myArray(i) = InputBox("Enter the slide number, press ok to enter another")
Next i
ActiveWindow.Panes(1).Activate
ActivePresentation.Slides.Range(myArray).Select
ActivePresentation.ExportAsFixedFormat Path:=strPath, FixedFormatType:=ppFixedFormatTypePDF, RangeType:=ppPrintSelection
End Sub