Eine Familie von Microsoft-Präsentationsgrafikprodukten, die Tools zum Erstellen von Präsentationen und Hinzufügen von Grafikeffekten wie Multimediaobjekten und Spezialeffekten mit Text bieten.
(Haftungsausschluss: Die bereitgestellten Informationen wurden mit einem automatisierten Übersetzungstool übersetzt. Wir bemühen uns um Genauigkeit, jedoch spiegeln Übersetzungen möglicherweise nicht immer vollständig die Bedeutung, den Kontext oder die Absicht des Originalinhalts wider.)
Hallo, Laszlo
Es gibt keine offizielle Ankündigung von Microsoft, dass Slides.Copy absichtlich geändert wurde. PowerPoint hat den Schreibschutz jedoch in manchen Fällen schon immer strenger gehandhabt als Word oder Excel. ReadOnly:=msoTrue öffnet die Datei schreibgeschützt, und Slide.Copy kopiert die Folie in die Zwischenablage. Daher sieht es eher nach einer kürzlich aufgetretenen Fehlerhaftigkeit oder einer strengeren Durchsetzung der Schreibschutzbestimmungen aus als nach einer dokumentierten Funktionsänderung.
Hier sind einige Vorschläge:
Es wird empfohlen, die Originaldatei nicht direkt zu öffnen, sondern stattdessen eine temporäre Kopie zu öffnen und diese ohne Speichern zu schließen. So bleibt das Original geschützt, während der neue Schreibschutz umgangen wird.
Dim tempPath As String
tempPath = Environ$("TEMP") & "\ppt_source_copy.pptx"
FileCopy sourcePath, tempPath
Set sourcePres = Presentations.Open(tempPath, _
ReadOnly:=msoFalse, _
Untitled:=msoFalse, _
WithWindow:=msoFalse)
sourcePres.Slides(1).Copy
sourcePres.Close
Kill tempPath
Alternativ können Sie Untitled:=msoTrue verwenden, da dies möglicherweise dem Öffnen einer Kopie der Datei entspricht. Wenn die Präsentation in OneDrive oder SharePoint gespeichert ist, stellen Sie außerdem sicher, dass sie vollständig lokal heruntergeladen wurde, da Slide.Copy fehlschlagen kann, wenn die Folie nicht vollständig heruntergeladen ist.
Ich hoffe, das hilft Ihnen weiter. Wenn Sie weitere Hilfe benötigen, können Sie sich gerne wieder melden.
Wenn die Antwort hilfreich ist, klicken Sie bitte auf „Antwort akzeptieren“ und bewerten Sie sie positiv. Wenn Sie weitere Fragen zu dieser Antwort haben, klicken Sie bitte auf „Kommentar“.
Hinweis: Bitte befolgen Sie die Schritte in unserer Dokumentation, um E-Mail-Benachrichtigungen zu aktivieren, wenn Sie die entsprechenden E-Mail-Benachrichtigungen für diesen Thread erhalten möchten.