Excel水印设置能够把水印置于底层的功能是可以实现的，一般来说有两种方法可以实现。

首先，您可以使用VBA代玛在Excel中插入水印，并将水印置于底层。让我们来看看这样的代玛应该是怎样的：

Sub insertwatermark()

Dim wMark As Shape

Set wMark = ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, _

"Watermark", "Arial Black", 1, False, False, 0, 0)

wMark.Name = "Watermark"

With wMark

.Line.Visible = msoFalse

.Fill.Visible = msoTrue

.Fill.Solid

.Fill.ForeColor.SchemeColor = 58

.Width = Application.InchesToPoints(4)

.Height = Application.InchesToPoints(3)

.Top = 0

.Left = 0

.Locked = True

.Placement = xlBackground

End With

End Sub

上面的代玛会把一个带有“watermark”文字的水印添加到Excel工作表中，并且将水印置于底层。为了让水印不会阻碍其他工作表元素的显示，我们将水印的线条设置为不可见，然后将水印宽度、高度设置为需要的值，最后将水印的位置设置为工作表的最上层。

其次，我们也可以使用宏来插入水印，并将水印置于底层。我们可以使用此代玛来实现：

Sub insertwatermark()

Dim shp As Shape

Set shp = ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "Watermark", "Arial Black", 1, False, False, 0, 0)

shp.Name = "Watermark"

With shp

.Line.Visible = msoFalse

.Fill.Visible = msoTrue

.Fill.Solid

.Fill.ForeColor.SchemeColor = 58

.Width = Application.InchesToPoints(4)

.Height = Application.InchesToPoints(3)

.Left = 0

.Top = 0

.Locked = True

.Placement = xlBackground

End With

End Sub

这段代玛会插入一个带有“watermark”文字的水印到Excel的worksheet中，并将水印置于底层，并将其设置成一个固定的水印，为了在水印下面的元素不被遮挡，我们将水印的线条设置为不可见，并将其高度设置为需要的值，最后将水印的位置设置为工作表最上面层。

转载请注明来源本文地址：https://m.tuituisoft/office/50255.html