Копировать заголовок с нечетной на четную страницу, включая все форматы - PullRequest
0 голосов
/ 02 апреля 2019

На том же листе я хочу скопировать левый заголовок нечетной страницы на четную страницу, включая все форматы. Два заголовка должны выглядеть одинаково, но вариант 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, но это свойство не существует.

Есть ли возможность скопировать все форматы, включая цвет шрифта?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...