Excel表格中如何批量给所有工作表添加统一水印_利用页眉插入图片及VBA

可在Excel中通过页眉插图或VBA批量添加水印：一、页眉插入图片，适用于打印水印；二、VBA自动为所有工作表页眉插入指定图片并统一尺寸；三、VBA插入浮动图片水印，支持旋转与置底，适合屏幕显示。

如果您希望在Excel工作簿的全部工作表中批量添加统一水印，可通过页眉插入图片或使用VBA代码实现。以下是两种独立可行的操作路径：

一、通过页眉插入图片作为水印

该方法利用Excel页眉区域插入缩放后的图片，使其在打印预览中呈现水印效果，适用于无需动态更新且对水印位置容忍度较高的场景。

1、点击【插入】选项卡，选择【页眉和页脚】，进入当前工作表的页眉编辑状态。

2、将光标置于页眉中间区域（如“中间页眉”框），点击【页眉和页脚工具】→【设计】→【图片】按钮。

3、在弹出窗口中选择目标水印图片文件（建议使用PNG透明背景图，尺寸适中），点击【插入】。

4、双击页眉区域任意位置退出编辑，右键页眉中的图片，选择【设置图片格式】。

5、在右侧窗格中展开【大小与属性】→【大小】，将高度设为200磅，宽度设为300磅，勾选锁定纵横比并调整至合适缩放比例。

6、切换至其他工作表，重复步骤1–5；或按住键依次单击所有工作表标签，再执行步骤1–5，即可批量应用至全部选中工作表。

二、使用VBA代码自动为所有工作表添加页眉图片水印

该方法通过运行一段VBA宏，遍历当前工作簿所有工作表，在页眉中央区域插入指定路径的图片，并统一设置尺寸与位置，避免手动逐张操作。

1、按下打开VBA编辑器，点击【插入】→【模块】，新建一个标准模块。

2、在模块空白区域粘贴以下代码：

Sub AddWatermarkToAllSheets()
Dim ws As Worksheet
Dim watermarkPath As String
watermarkPath = "C:\Watermark.png"
For Each ws In ThisWorkbook.Worksheets
With ws.PageSetup
.CenterHeaderPicture.Filename = watermarkPath
.CenterHeader = "&G"
.CenterHeaderPicture.Height = 150
.CenterHeaderPicture.Width = 220
End With
Next ws
End Sub

3、将代码中"C:\Watermark.png"替换为本地实际水印图片的完整绝对路径，确保该路径存在且图片可读取。

4、关闭VBA编辑器，返回Excel界面，按打开宏对话框，选择AddWatermarkToAllSheets，点击【运行】。

5、运行完成后，所有工作表的页眉中央将显示该图片，且高度固定为150磅、宽度为220磅。

三、使用VBA在每个工作表中插入浮动图片水印（不依赖页眉）

该方法将水印作为浮动图片直接插入工作表绘图层，支持旋转、半透明等视觉增强，且不受打印页眉设置影响，适合需要屏幕可视水印的场景。

1、按打开VBA编辑器，点击【插入】→【模块】，新建一个标准模块。

2、粘贴以下代码：

Sub InsertFloatingWatermark()
Dim ws As Worksheet
Dim shp As Shape
Dim watermarkPath As String
watermarkPath = "C:\Watermark.png"
For Each ws In ThisWorkbook.Worksheets
On Error Resume Next
ws.Shapes("WatermarkIMG").Delete
On Error GoTo 0
Set shp = ws.Shapes.AddPicture(watermarkPath, msoFalse, msoTrue, 100, 100, 300, 200)
shp.Name = "WatermarkIMG"
shp.Rotation = 30
shp.ZOrder (msoSendToBack)
shp.LockAspectRatio = msoTrue
Next ws
End Sub

3、修改代码中"C:\Watermark.png"为实际图片路径，同时确认图片格式为Excel支持类型（如PNG、JPG）。

4、将插入起始坐标100, 100和尺寸300×200磅按需调整，旋转角度30度可改为其他数值。

5、按调出宏列表，选择InsertFloatingWatermark并运行，所有工作表左上角100,100位置将插入带30度旋转的水印图片，并置于底层。