Makro für Video Export mit hoher Auflösung

Moderator: ModerationP

Makro für Video Export mit hoher Auflösung

Beitragvon Hias90 » 13. Mär 2019, 08:37

Hallo zusammen,

ich möchte meine Präsentation als .mp4 in der besten Auflösung haben.

Hierzu habe ich einen Code gefunden und diesen so angepasst, das er für meine Zwecke funktioniert.

Jetzt wollte ich denn Speicherort und denn Dateinamen variable mit meiner Datei und dem Speicherort gestalten.

Doch dies klappt leider nicht.

Hier der Code wo funktioniert:

Code: Alles auswählen
Sub HighQualityVideoExport()

Dim PP As String
Dim PPName As String
Dim PPPfad As String
Dim LText As Double
Dim PfadName As String
Dim ExportPfad As String


    PP = ActivePresentation.Name
    PPName = Left((PP), Len(PP) - 5)
    PPPfad = ActivePresentation.FullName
    LText = Len(PP)
    PfadName = Left((PPPfad), Len(PPPfad) - LText)
    ExportPfad = PfadName & PPName & ".mp4"


    If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
           
            ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\test.mp4", _
            UseTimingsAndNarrations:=True, _
            VertResolution:=1280, _
            FramesPerSecond:=25, _
            Quality:=100
       
        Else: MsgBox "Es wird bereits eine Konvertierung in ein Video durchgeführt"
   
    End If

End Sub



Wenn ich aber meine Variablen einsetzen möchte, wie in diesem Beispiel, dann kommt ein Fehler bei der Aktion der Konvertierung

Code: Alles auswählen
Sub HighQualityVideoExport()

Dim PP As String
Dim PPName As String
Dim PPPfad As String
Dim LText As Double
Dim PfadName As String
Dim ExportPfad As String


    PP = ActivePresentation.Name
    PPName = Left((PP), Len(PP) - 5)
    PPPfad = ActivePresentation.FullName
    LText = Len(PP)
    PfadName = Left((PPPfad), Len(PPPfad) - LText)
    ExportPfad = PfadName & PPName & ".mp4"


    If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
           
            ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & ExportPfad, _
            UseTimingsAndNarrations:=True, _
            VertResolution:=1280, _
            FramesPerSecond:=25, _
            Quality:=100
       
        Else: MsgBox "Es wird bereits eine Konvertierung in ein Video durchgeführt"
   
    End If

End Sub

Mit freundlichen Grüßen Hias90
Benutzeravatar
Hias90
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 378
Registriert: 18. Dez 2017, 07:23

Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste