批量修改页眉页脚

原创

于 2024-04-29 10:03:38 发布 · 312 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#服务器 #vab

2017年2月17日记录，对于有图片资源的情况，使用宏录制代码。经测试，2013 EXCEL必须按特定操作进行。

时间：2017-02-17 17:30:24

Sub 宏1()
'
' 宏1 宏
'
 
'
    Application.PrintCommunication = False
 
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "&""楷体,常规""XXXXXXXXXXXXXXXXXXX"
        .RightHeader = ""
        .LeftFooter = "&""楷体,常规""&10XXXXXXXXXXXXXX程工程有限公司"
        .CenterFooter = "&""Times New Roman,常规""&P/&N"
        .RightFooter = ""
 
    End With
    Application.PrintCommunication = True
End Sub

有图片资源的

供参考：
Sub tt()
    If MsgBox("页眉是否加载图片？", vbYesNo) = vbYes Then
        With Application.FileDialog(msoFileDialogOpen)
            .Show
            If .SelectedItems.Count > 0 Then pic1 = .SelectedItems(1)
        End With
    End If
    If MsgBox("页脚是否加载图片？", vbYesNo) = vbYes Then
        If MsgBox("页脚图片是否与页眉相同？", vbYesNo) = vbYes Then
            pic2 = pic1
        Else
            With Application.FileDialog(msoFileDialogOpen)
                .Sho

最低0.47元/天解锁文章