如何制作Excel水印?

发布网友发布时间：2024-09-24 18:32

共1个回答

热心网友时间：2024-09-24 19:34

在进行表格制作时，有时我们希望表格上能显示出水印，以突出自己的工作成果。那么如何在Excel中设置水印呢？以下我们将介绍三种设置Excel水印的方法。

第一种方法是常规方法，操作步骤如下：点击“插入”选项卡，选择“图片”，设置图片格式，调整颜色为“冲蚀”，这样图片就会被设置到页眉中。接着将焦点放在“&[图片]”前面，然后回车两次，将水印调整到合适的位置即可。需要注意的是，这种方法设置的水印只有在打印时才能看到，打印出来的表格中会显示水印。

第二种方法与第一种类似，水印同样只能在打印时或页面布局模式中显示。首先，我们需要添加以下代码：

------为单个工作表设置可打印的水印-------

Sub 为工作表设置可打印的水印()

Dim Pic As String, rng As Range

Pic = Application.GetOpenFilename("图片文件 (*.jpg; *.bmp),*.jpg; *.bmp")

If Pic = "False" Then Exit Sub

ActiveSheet.PageSetup.LeftHeaderPicture.Filename = Pic

ActiveSheet.PageSetup.LeftHeader = "&G"

End Sub

------为全部工作表设置可打印的水印-------

Sub 为所有工作表设置可打印的水印()

Dim Pic As String, rng As Range, sht As Worksheet

Pic = Application.GetOpenFilename("图片文件 (*.jpg; *.bmp),*.jpg; *.bmp")

If Pic = "False" Then Exit Sub

For Each sht In Worksheets

sht.PageSetup.LeftHeaderPicture.Filename = Pic

sht.PageSetup.LeftHeader = "&G"

Next sht

End Sub

从上述两个例子可以看出，此类水印仅在打印预览或“页面视图”下才能直观可见，正常模式下无法看到水印。为了解决这个问题，我们可以设置图片透明度，并用VBA代码设置为不可编辑。但这样做容易被人更改，因为Excel的加密安全性较低。如果要在Excel中添加在常规模式下可见的图片水印或文字水印，可以使用Visual Studio制作插件，利用Spire.XLS组件为Excel工作表添加水印。以下是代码示例：

---------添加背景文本图片水印---------

当然，大多数人不会为了添加水印而制作插件，就像没有人会为了修水沟而建桥。但如果要开发插件，这个小功能是必不可少的。