excel如何插入水印

Excel

在excel中插入水印有以下几种方法：

方法一：使用excel内置的“页眉和页脚”功能

1.打开excel文档，进入“视图”选项卡，点击“页眉和页脚”按钮；

2.在弹出的“页眉和页脚”窗口中选择“页脚”选项卡，点击“自定义页脚”按钮；

3.在“自定义页脚”对话框中，选择对应的位置，填写水印文字；

4.点击“确定”按钮，即可在excel文档中插入水印。

方法二：使用excel插件“Kutoolsforexcel”

1.下载并安装“Kutoolsforexcel”插件；

2.打开excel文档，进入“Kutools”选项卡，点击“更多插件”按钮；

3.在弹出的“插件中心”窗口中，选择“水印”插件，并点击“安装”按钮；

4.确认安装完成后，再次点击“Kutools”选项卡，选择“水印”选项，选择对应的水印效果，并设置参数；

5.点击“确定”按钮，即可在excel文档中插入水印。

方法三：使用VBA代码实现

1.打开excel文档，按下“Alt+F11”键，打开VBA编辑器；

2.在VBA编辑器中，插入以下代码：

SubinsertWatermark()

ActiveSheet.Shapes.AddTextEffect(msoPresetTextEffect1,_

"Watermark","Arial",36,_

msoFalse,msoFalse,0,0)._

Select

WithSelection.ShapeRange(1).TextFrame2.TextRange

.CharFormat.Fill.Visible=msoFalse

.Font.Bold=msoTrue

.Font.Italic=msoTrue

.Font.Name="Arial"

.Font.Size=40

.Line.Visible=msoFalse

.Text="Watermark"

EndWith

Selection.ShapeRange(1).LockAspectRatio=msoFalse

Selection.ShapeRange(1).Height=ActiveSheet.Range("C1").Height*2

Selection.ShapeRange(1).Width=ActiveSheet.Range("C1").Width*2

Selection.ShapeRange(1).Top=ActiveSheet.Range("C1").Top-Selection.ShapeRange(1).Height/2

Selection.ShapeRange(1).Left=ActiveSheet.Range("C1").Left-Selection.ShapeRange(1).Width/2

EndSub

3.修改代码中的水印文字和样式；

4.运行宏，即可在excel文档中插入水印。

以上三种方法均可实现在excel文档中插入水印，可以根据需要选择适合自己的方式。