Мои извинения за повторное открытие этого поста. Я сделал некоторые проблемы с этим, и мои выводы заключаются в следующем.
Допустим, мы используем опцию «Специальная вставка - все с использованием исходной темы», только ваши данные и форматирование из исходного листа будут сохранены, плавающие объекты не будут скопированы. Эта опция будет работать только тогда, когда на этом листе нет плавающих объектов (диаграмм, диаграмм, фигур). VBA:
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Чтобы иметь все содержимое, относящееся к листу (включая плавающие объекты), необходимо переместить / скопировать лист в новую / целевую книгу. После этого все цвета изменятся на другую тему, включая цвета диаграмм. Это имеет место даже в том случае, когда цветные паллеты обеих книг одинаковы.
Я приложил файл для игры. Попробуйте скопировать / переместить лист в новую книгу и посмотрите, что произойдет, этот файл создан на платформе Office 2010. Я использую Office 365 на Win8, и эти стандартные цвета меняются на разные оттенки желтого и серого.
Эта проблема отсутствует при использовании книг, созданных с нуля в Office 365, но в файлах, созданных в предыдущих версиях Office, проблема не устраняется при использовании более поздней версии Office.
РЕШЕНИЕ: макет страницы ---> Цвета ---> Офис 2007-2010
И в VBA:
ActiveWorkbook.Theme.ThemeColorScheme.Load ( _
"C:\Program Files\Microsoft Office 15\Root\Document Themes 15\Theme Colors\Office 2007 - 2010.xml" _
)