На том же листе я хочу скопировать левый заголовок нечетной страницы на четную страницу, включая все форматы. Два заголовка должны выглядеть одинаково, но вариант
OddAndEvenPagesHeaderFooter
должно быть true
, потому что нижние колонтитулы отличаются.
Свойство ActiveSheet.PageSetup.LeftHeader
похоже для нечетных страниц. Свойство содержит строку с текстом и информацией о формате (полужирный шрифт, цвет шрифта, ...), т. Е. "&""Calibri,Bold""&18&K00-046This is a header"
.
&18
- это размер шрифта, &K00-046
- это цвет.
Но, очевидно, нет свойства копировать формат на четные страницы. Код ActiveSheet.PageSetup.EvenPage.LeftHeader.Text = ActiveSheet.PageSetup.LeftHeader
копирует только текст и формат шрифта, а не цвет. Скопированный заголовок будет выглядеть следующим образом: &K00-046This is a header
, а стиль шрифта станет курсивом. Я также пытался ActiveSheet.PageSetup.EvenPage.LeftHeader
, но это свойство не существует.
Есть ли возможность скопировать все форматы, включая цвет шрифта?