Spiechern unter

Sub Auto_Open() Dim osld As Slide Dim oshp As Shape For Each osld In ActivePresentation.Slides For Each oshp In osld.Shapes If oshp.Type = msoLinkedOLEObject Then oshp.LinkFormat.Update End If Next oshp Next osld ActivePresentation.Save End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Auto_Open() 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

Hallo, das vorgeschlagene Makro funktioniert leider nicht. Das Problem, das File das ich starte ist ein pptm (mit makro) mit der saveas Funktion will PowerPoint wieder eine Präsentation mit makro speichern.
Ich habe jetzt mal einen anderen Ansatz versucht und zwar mit einem pptm ein neues Powerpointfenster zu starten (dann pptx). 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

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread