Powerpoint hängt sich bei Code auf

Moderator: ModerationP

Powerpoint hängt sich bei Code auf

Beitragvon Robbsen » 10. Aug 2018, 09:42

Hi zusammen,

folgender Code bringt mein PowerPoint 2016 zum Absturz:

Code: Alles auswählen
Sub test()

Set sld = Application.ActiveWindow.View.Slide
Set shp = ActiveWindow.Selection.ShapeRange


shpVal = ActivePresentation.Slides(sld.Name).Shapes(shp.Name).TextFrame.TextRange.Text
akz = InputBox("Bitte AKZ eingeben", "Bitte AKZ eingeben", shpVal)

    If akz = "" Then
        End
    End If
   
With Application.ActivePresentation.Slides(sld.Name)
   .Export "C:\Users\xx\Documents\xx\" & akz & "_short_summary", "PPT"
End With
MsgBox "Die Datei wurde abgelegt."

End Sub


Der Code funktioniet ansonsten, wird sauber bis zur MsgBox ausgeführt und dann kackt PP ab.
Hat Jemand einen Rat?

Sinn des Codes: Ich möchte einzelne Folien als neue ppt speichern, den Dateinamen setze ich aus dem Inhalt einer Textbox und einen fixen Teil zusammen.
Ist es eig. auch möglich die Datei dann als pptx zu speichern? Bei der .Export Methode klappt nur ppt

Danke & Gruß
Robbsen
Robbsen
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 419
Registriert: 12. Okt 2014, 13:56

Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast