标签:Excel技巧
我们在《技巧:在Excel工作表中添加水印》一文中,详细讲解了使用Excel制作水印图片,然后使用直接插入或将其插入到页眉或页脚中为Excel工作表文档添加水印的方法。本文介绍使用VBA代码达到相同的效果。
VBA代码:
Sub AddWatermark()Dim i As Long' 需要插入页眉中央部分的水印图片文件名及路径ActiveSheet.PageSetup.CenterHeaderPicture.Filename = ThisWorkbook.Path & "\watermark.png"For i = 1 To 10' 在水印图片前添加10行空行, 将图片移动至页面中央ActiveSheet.PageSetup.CenterHeader = ActiveSheet.PageSetup.CenterHeader & "" & Chr(10)Next' 在页眉添加水印图片ActiveSheet.PageSetup.CenterHeader = ActiveSheet.PageSetup.CenterHeader & "&G"' 调整插入的图片大小ActiveSheet.PageSetup.CenterHeaderPicture.Height = 300ActiveSheet.PageSetup.CenterHeaderPicture.Width = 400End Sub
在VBE中,插入一个标准模块,输入或粘贴上面的代码。运行后,结果如下图1所示。

图1
夜雨聆风