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