将页眉从奇数页复制到偶数页,包括所有格式

时间:2019-04-02 07:42:04

标签: excel vba excel-2010

在同一张纸中,我想将奇数页的左页眉复制到包括所有格式的偶数页。两个标头应该看起来相似,但是选项 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,但是该属性不存在。

是否可以复制包括字体颜色在内的所有格式?

0 个答案:

没有答案