Powerpoint 2016 PDF Erstellung in hoher Quallität

Moderator: ModerationP

Powerpoint 2016 PDF Erstellung in hoher Quallität

Beitragvon Krontas » 06. Okt 2016, 15:32

Guten Tag.
Ich habe folgendes Problem.
Da ich auf Arbeit ständig PDFs von Powerpointpräsis erstellen muss, wollte ich mir ein Script schreiben damit ich immer nur noch 1 Button klicken muss. Der Name soll der gleiche sein nur halt als PDF und immer im selben Pfad. In Word ist das kein Problem (habe ich getestet) aber bei Powerpoint kommt das PDF nur in schlechter Quallität.

Kennt jemand was besseres als ActivePresentation.ExportAsFixedFormat ?
In Word funktioniert ExportAsFixedFormat super. Die Quallität ist hervorragend. Vor allem gibt es in Word Eigenschaften die man setzen kann und in Powerpoint gibt es die nicht. Der Rest von dem Code funktioniert sehr gut.

Code: Alles auswählen
   
Select Case control.id
       Case Is = "btn1"
            Dim lngFirst As Long
            Dim lngSecond As Long
            Dim strPath As String
            Dim ipos As Integer
            Dim pprangearray As Variant
            Dim zaehler As Integer


            If ActivePresentation.Path = "" Then
                MsgBox "Das Dokument muss erst gespeichert werden!"
                Exit Sub
            End If
            ipos = InStrRev(ActivePresentation.FullName, ".")
            strPath = Left(ActivePresentation.FullName, ipos - 1) & ".pdf"
            If ActivePresentation.Slides.Count > 2 Then
                zaehler = ActivePresentation.Slides.Count - 2
                ReDim pprangearray(zaehler)
                i = 0
                For i = 0 To ActivePresentation.Slides.Count - 3

                    pprangearray(i) = ActivePresentation.Slides.Count - 1 - i
                    Inhalt = Inhalt & pprangearray(i) & Chr(13)
   
                Next i
            'lngFirst = InputBox("First slide number")
            'lngSecond = InputBox("Second slide number")
            Else
                MsgBox "zu wenig Folien"
            Exit Sub
            End If

            ActiveWindow.Panes(1).Activate
            ActivePresentation.Slides.Range(pprangearray).Select
            ActivePresentation.ExportAsFixedFormat Path:=strPath, FixedFormatType:=ppFixedFormatTypePDF, Intent:=ppFixedFormatIntentScreen, RangeType:=ppPrintSelection
        Exit Sub
        '
        Case Is = "btn0"
            If ActivePresentation.Path = "" Then
                MsgBox "Das Dokument muss erst gespeichert werden!"
             Exit Sub
            End If
            ipos = InStrRev(ActivePresentation.FullName, ".")
            strPath = Left(ActivePresentation.FullName, ipos - 1) & ".pdf"
            ActivePresentation.ExportAsFixedFormat Path:=strPath, FixedFormatType:=ppFixedFormatTypePDF
        Exit Sub
        Case Else
            MsgBox "Button """ & control.id & """ clicked" & vbCrLf & _
                           "Es wurde auf Button """ & control.id & """ in Ribbon geklickt", _
                           vbInformation
Krontas
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5
Registriert: 26. Okt 2012, 20:54

Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast