Thema Datum  Von Nutzer Rating
Antwort
13.10.2015 20:10:39 Markus
NotSolved
14.10.2015 11:43:50 BigBen
NotSolved
14.10.2015 21:42:45 Gast77440
NotSolved
15.10.2015 00:21:02 BigBen
NotSolved
15.10.2015 11:38:48 BigBen
NotSolved
Blau Powerpoint
 15.10.2015 22:36:05 Markus
NotSolved

Ansicht des Beitrags:
Von:
Markus		 Datum:
15.10.2015 22:36:05		 Views:
913		 Rating:
     
Antwort:
  Ja
Thema:
Powerpoint

Hallo, das vorgeschlagene Makro funktioniert leider auch nicht. Auch mit diesem Startet die Präsentation im Hintergrund
Ich habe jetzt mal einen anderen Ansatz versucht und zwar mit einem makro ein pptx zu starten und dieses dann als ppts zu speichern. An sich funktioniert dieses Makro auch, aber nur dann, wenn ich es mit "Ausfüren" im pptm starte. Probier ich es als Addin (starte ich das pptm sollte auch das Makro starten) dann funktionierts nicht! Sehr verzwickt!

 

Sub Auto_Open()
Application.Presentations.Open FileName:="X:\Praesentation.pptx"
    Dim objPP As Presentation
    Dim strPathNamePPSX As String, strPathNamePPTX As String
    Dim osld As Slide
    Dim oshp As Shape
    Set objPP = ActivePresentation
'    MsgBox "Auto_Open"
     For Each osld In objPP.Slides
        For Each oshp In osld.Shapes
            If oshp.Type = msoLinkedOLEObject Then
                oshp.LinkFormat.Update
            End If
        Next oshp
     Next osld
     objPP.Save
     strPathNamePPTX = objPP.FullName
     strPathNamePPSX = Left(strPathNamePPTX, InStrRev(strPathNamePPTX, ".")) & "ppsx"
     Application.DisplayAlerts = False
     objPP.SaveAs FileName:=strPathNamePPSX, fileformat:=ppSaveAsOpenXMLShow
     Application.DisplayAlerts = True
     'Präsentation wieder öffnen
     Application.Presentations.Open FileName:=strPathNamePPTX
     'ppsx-Datei schliessen
     objPP.Close
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.10.2015 20:10:39 Markus
NotSolved
14.10.2015 11:43:50 BigBen
NotSolved
14.10.2015 21:42:45 Gast77440
NotSolved
15.10.2015 00:21:02 BigBen
NotSolved
15.10.2015 11:38:48 BigBen
NotSolved
Blau Powerpoint
 15.10.2015 22:36:05 Markus
NotSolved