如何设置页眉中字体大小？

楼主 biaotiger1	Q：如何设置页眉中字体大小？ A：在VBA编辑器中新建模块后输入如下代码。 Sub aaaa() With ActiveSheet.PageSetup .CenterHeader = "&10ExcelTip" .RightFooter = "&6" & [a1] End With End Sub 依次单击F8键，可看到程序执行的结果如何设置页眉的字体大小.rar
2楼 gvntw	页眉页脚中本来就可以设置字体大小的，不必用VBA。
3楼 biaotiger1	Q：当页眉以数字开始时，如何用VBA设置页眉字体大小呢？ A：利用VBA设置页眉中字体大小详见下帖如何设置页眉中字体大小？ http://www.exceltip.net/thread-5934-1-1.html 但该方法对于以数字开头的字符串设置页眉时会出现问题。方法如下在VBA中新建模块，插入如下代码 Sub Macro1() With ActiveSheet.PageSetup .CenterHeader = "&14 " & Format(Now, "yyyy-mm-dd") End With End Sub 注意&14后面的空格
4楼 biaotiger1	Q：如何利用VBA设置页眉页脚（含左、右）？ A：ALT+F11→插入模块→新建模块中输入代码如下 Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .CenterHeader = "中部页眉" .LeftHeader = "左侧页眉" .RightHeader = "右侧页眉" .LeftFooter = "左侧页脚" .CenterFooter = "中部页脚" .RightFooter = "右侧页脚" End With End Sub 打印或预览当前工作表，即可看到页眉及页脚部分已经分别加以标注。如何设置页眉页脚（含左右）.rar
5楼 yncxxmj	不错的编程，对初学者来讲很有帮助。
6楼 omnw	Q：如何用VBA在一个页脚属性中快速设置左/中/右页脚? A：使用“&C”、“&L”和“&R”格式代码可以在一个页脚信息中设置左/中/右三个页脚，如下代码通过设置左页脚一次完成左/中/右三个页脚信息的设置 ActiveSheet.PageSetup.LeftFooter = "&C中&L左&R右" clip_image002.jpg
7楼 biaotiger1	Q：如何利用VBA在当前工作表的页脚中插入文件保存路径？ A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下 Sub 如何在当前工作表的页脚中插入文件保存路径() ActiveSheet.PageSetup.LeftFooter = "&Z&F" End Sub 运行以上代码，则活动工作表的左页脚被设置为“&[路径]&[文件]”的形式。如果活动工作表为空白，则打印预览不显示页脚，可在“页面设置”对话框→“页眉/页脚”选项卡中查看
8楼 biaotiger1	Q：如何通过VBA在页眉页脚中插入工作表标签？ A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下 Sub 页眉页脚设置打印工作表标签() ActiveSheet.PageSetup.LeftFooter = "&A" End Sub 运行以上代码后，打印预览可看到左侧页脚处插入了工作表标签。如果活动工作表为空白，则打印预览不显示页脚，可在“页面设置”对话框→“页眉/页脚”选项卡中查看
9楼 biaotiger1	Q：页眉页脚中如何显示“&”？ A：在需要显示“&”的地方连续输入两个“&”即可。如“&&”。则打印预览中可见为“&”。
10楼 biaotiger1	Q：如何利用VBA设置页眉页脚的字形为加粗倾斜？ A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下 Sub 设置页眉页脚字形为加粗倾斜() ActiveSheet.PageSetup.LeftFooter = "&""-,加粗倾斜""&14中国" End Sub 以上代码中 1、-,加粗倾斜--表示的是字形设置为加粗倾斜 2、&14--表示的是字体大小 3、中国--表示的是页脚内容