可在excel中通过vba批量为所有工作表添加图片或文本水印：先准备透明png水印图并指定路径，再用vba代码遍历各表插入页眉；或改用页眉文本模拟简易水印，最后需在打印预览和pdf导出中验证效果。
如果您希望在Excel工作簿的每个工作表中批量添加统一水印，仅靠手动设置页眉无法实现跨表自动应用，需结合页眉插入图片与VBA代码协同操作。以下是实现此目标的具体步骤：
一、准备水印图片并调整为透明背景
水印效果依赖于图片自身的透明度和尺寸适配，直接使用不透明或过大的图片会导致遮挡单元格内容或打印异常。必须确保图片格式为PNG且已去除背景，文字区域呈半透明状态。
1、使用图像编辑软件（如Photoshop或在线工具remove.bg）打开原始水印文字图。
2、将文字颜色设为浅灰（例如RGB 200, 200, 200），并降低不透明度至30%–40%。
3、裁剪图片为宽高比接近4:1的横向长条，保存为PNG格式，文件名不含中文或特殊字符。
4、将该PNG文件存放于本地固定路径，例如C:\Watermark\stamp.png，后续VBA代码将引用此路径。
二、启用开发工具并插入VBA模块
VBA是执行跨工作表批量操作的核心，需先激活开发功能区，并新建标准模块以编写可复用代码。未启用“开发工具”选项卡将无法访问VBE编辑器。
1、右键快速访问工具栏，选择“自定义快速访问工具栏”。
2、在左侧“所有命令”列表中找到“开发工具”，点击“添加”按钮将其加入工具栏。
3、点击新出现的“开发工具”选项卡，再点击“Visual Basic”按钮打开VBA编辑器。
4、在VBA编辑器中，右键“Normal”或当前工作簿名称，选择“插入”→“模块”，新建一个空白模块。
三、粘贴并运行水印注入VBA代码
该代码遍历当前工作簿全部工作表，在每张表的页眉中央位置插入指定路径的PNG图片，并关闭页眉文字显示，确保仅呈现图片水印。代码不修改单元格内容，不影响原有页面布局。
1、在新建模块的编辑窗口中，粘贴以下完整代码：
Sub InsertWatermarkToAllSheets()
Dim ws As Worksheet
Dim watermarkPath As String
watermarkPath = "C:\Watermark\stamp.png"
For Each ws In ThisWorkbook.Worksheets
With ws.PageSetup
.CenterHeaderPicture.Filename = watermarkPath
.CenterHeader = "&G"
End With
Next ws
End Sub
2、检查第4行中的watermarkPath变量值是否与您实际存放图片的路径完全一致，包括盘符、文件夹名及文件扩展名。
3、按F5键直接运行该宏，或点击菜单栏“运行”→“运行子过程/用户窗体”。
4、运行结束后，切换任意工作表，进入“页面布局”视图或“打印预览”，确认页眉区域已显示水印图片。
四、通过页眉文本方式模拟轻量水印（无需图片文件）
若无法使用外部图片或需规避路径依赖问题，可改用页眉内置文本字符组合模拟简易水印。该方法无需准备图片文件，但仅支持单色、无旋转、固定位置的文字块，适合内部非正式文档。
1、在VBA编辑器中新建另一模块，粘贴如下代码：
Sub TextBasedWatermark()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws.PageSetup
.CenterHeader = "&10&KCCCCCC&D &T [CONFIDENTIAL] &D &T"
End With
Next ws
End Sub
2、其中&KCCCCCC设定字体颜色为浅灰，&10控制字号为10磅，&D与&T分别插入日期和时间以增强动态感。
3、运行该宏后，每张工作表页眉中央将显示“[CONFIDENTIAL]”字样，左右辅以当前日期时间，形成基础文本水印。
五、验证水印在打印与导出PDF时的实际表现
页眉中插入的内容仅在页面布局模式或打印输出中可见，普通编辑视图下默认隐藏。必须通过真实打印预览或导出操作验证水印是否按预期渲染，避免因缩放比例或打印机驱动导致偏移或截断。
1、切换至任一工作表，点击“文件”→“打印”，查看右侧预览窗格中页眉区域是否完整显示水印。
2、点击“打印”下拉箭头，选择“另存为PDF”，保存后用Adobe Acrobat打开该PDF文件。
3、在PDF中放大至150%，检查水印图片边缘是否清晰、无锯齿，文字水印是否未被页边距裁切。
4、若发现水印位置偏上或偏左，返回Excel，进入“页面布局”→“页面设置”→“页眉/页脚”→“自定义页眉”，手动微调&G前后的空格数量以重新定位。
