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: 382
Registriert: 18. Dez 2017, 07:23

Re: Makro für Video Export mit hoher Auflösung

Beitragvon CaBe » 21. Mär 2019, 12:38

Hallo Hias90,

ich denke, da fehlt ein Backslash als Pfadtrenner zwischen Environ("USERPROFILE") & ExportPfad. Die erste endet ohne "\", die zweite hast du ohne beginnenden "\" deklariert.
Freundlichst
Carsten

Keine Antwort wäre wirklich schade! Windows 10 Pro, Office 2016 Pro Deutsch, manchmal Office 2016 Pro Englisch
Jede Änderung meiner Beiträge durch andere Benutzer möge bitte mit Grund und Namen gekennzeichnet werden.
Benutzeravatar
CaBe
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5622
Registriert: 06. Apr 2005, 09:20
Wohnort: Bremen

Re: Makro für Video Export mit hoher Auflösung

Beitragvon Hias90 » 27. Mär 2019, 12:57

Hallo CaBe,

sry das ich mich jetzt erst melde, ich habe zur Zeit einiges um die Ohren.

Dachte dies wäre vorne an, weil der Destop direkt verwendet wird. Bin mir nicht sicher ob ich das nicht auch schon getestet hatte aber ich teste das mal okay.

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

Re: Makro für Video Export mit hoher Auflösung

Beitragvon Hias90 » 27. Mär 2019, 13:28

Hallo CaBe,

ich habe es versucht und es kommt wieder an der selben Stelle der Fehler:

Fehler_Konvertierung.jpg


ich habe diesen Code verwendet:

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
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

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

Re: Makro für Video Export mit hoher Auflösung

Beitragvon CaBe » 29. Mär 2019, 11:44

Hallo Hias90,

schade, dass es so lange dauert. Ich bin auch schon wieder halbwegs raus aus dem Thema. Allerdings glaube ich, dass da noch ein "\" fehlt. Du kannst ja mal in deinem VB-Editor zur Laufzeit (also schön mit F8 durchsteppen) auf den Eintrag "ExportPfad" zeigen, nachdem die Variable gefüllt wurde. Was wird da angezeigt? Check den String/Pfad mal ganz genau.
Freundlichst
Carsten

Keine Antwort wäre wirklich schade! Windows 10 Pro, Office 2016 Pro Deutsch, manchmal Office 2016 Pro Englisch
Jede Änderung meiner Beiträge durch andere Benutzer möge bitte mit Grund und Namen gekennzeichnet werden.
Benutzeravatar
CaBe
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5622
Registriert: 06. Apr 2005, 09:20
Wohnort: Bremen


Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

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