Ich entschuldige mich für die Wiedereröffnung dieses Beitrags. Ich habe einige Fehlerbehebungsmaßnahmen durchgeführt, und meine Ergebnisse sind wie folgt.
Angenommen, wir verwenden die Option "Spezial einfügen - Alle verwenden Quellthema". Nur Ihre Daten und Formatierungen aus dem ursprünglichen Arbeitsblatt werden beibehalten, schwebende Objekte werden nicht kopiert. Diese Option funktioniert nur, wenn das Arbeitsblatt keine schwebenden Objekte (Diagramme, Diagramme, Formen) enthält. VBA:
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Um den gesamten Inhalt eines Blattes (einschließlich schwebender Objekte) zu erhalten, müsste das Blatt in die neue Arbeitsmappe / Zielarbeitsmappe verschoben / kopiert werden. Dabei würden alle Farben zu einem anderen Thema wechseln, einschließlich der Farben von Diagrammen. Dies ist auch dann der Fall, wenn die Farbpaletten beider Arbeitsmappen gleich sind.
Ich habe eine Datei angehängt, mit der Sie spielen können. Versuchen Sie, das Blatt in eine neue Arbeitsmappe zu kopieren / zu verschieben, und sehen Sie, was passiert. Diese Datei stammt von einer Office 2010-Plattform. Ich verwende Office 365 unter Win8 und diese Standardfarben ändern sich in verschiedene Gelb- und Grautöne.
Dieses Problem tritt nicht auf, wenn Sie in Office 365 von Grund auf neu erstellte Arbeitsmappen verwenden. Bei Dateien, die mit früheren Office-Versionen erstellt wurden, ist das Problem jedoch nicht behoben, wenn eine spätere Version von Office verwendet wird.
DIE LÖSUNG: Seitenlayout ---> Farben ---> Office 2007-2010
Und in VBA:
ActiveWorkbook.Theme.ThemeColorScheme.Load ( _
"C:\Program Files\Microsoft Office 15\Root\Document Themes 15\Theme Colors\Office 2007 - 2010.xml" _
)