excel如何编辑页眉和页脚(vba自定义页脚)

在excel表格中，设置页眉和页脚图片是一个很有用的操作，它可以提高文件标志性格式的统一性。

如果增加一些公司LOGO，那就更需要添加一个图片了。

本文将利用VBA代码来介绍一下，如何通过编码实现添加页眉页脚图片的效果。

如下图所示，添加了一个左上角图片，那是个页眉图片，并不是插入的图片，可以看到第二页同样会自动添加一个页角，实际上是所有页都会自动添加。

那就介绍一下，如何实现这样的效果。

首先我们会用到一个对象，即Graphic对象。

Graphic对象并不是凭空出现的，它需要另一个对象的某个属性来返回得到。

如下表所示：

PageSetup对象的几个属性都将返回一个Graphic对象。

分别指的是页眉的左中右和页脚的左中右的图片对象。

这样理解就简单多了。

而PageSetup对象在以前文章里有介绍，具体内容可一下。

PageSetup对象是WorkSheet对象的一个属性返回的。

文字表达有点绕，下面具体看一行代码：

set xGobj=ActiveSheet.PageSetup.LeftHeaderPicture

这样就得到一个Graphic对象xGobj，它代表左上角页眉的图片。

下面利用Graphic对象的一些属性来设置一下相关内容，如下图所示：

通过上图属性设置之后，就可以实现对左上角页眉的图片格式化。

具体代码可以在文章后面。

这里还需要一行代码，以确定页眉显示图片。

ActiveSheet.PageSetup.LeftHeader = \”&G\”

下图为图片转换效果的枚举类型，也是ColorType属性的可选值，实际上就是页眉图片以什么样的方式进行显示，默认为原图显示，也有黑白显示，灰度显示等等，实际操作中可以设置不同的值逐一调试。

为什么要说这个呢?主要是因为同样是一张图片，用不同的颜色转换可以呈现出不同的效果，就像同样是一个红色，每个人的眼里其实并不是一样的红色，有些人看到的是深红，有些人看到是浅红，还有些人看到的确是黄色，这并不奇怪。

这就是说，这个世界并没有颜色，只不是你的大脑告诉你世界是五颜六色的。

代码：

代码是重点要学习的内容，如果深入理解，这一点并不困难，而且对于利用这样的方法实现一个自动化的过程，也是一件十分有意义的事情。

Private Sub NewLeftPictrue()

Dim xGrObj As Object

Set xGrObj = ActiveSheet.PageSetup.LeftHeaderPicture\’返回Graphic对象

With xGrObj

.Filename = ThisWorkbook.Path & \”\\pic\\001.jpg\”\’默认图片

.Width = 30

.Height = 80

.LockAspectRatio = True\’设置比例不变

.Brightness = Me.TextBox1.Value\’设置亮度

.Contrast = Me.TextBox2.Value\’设置对比度

.CropLeft = 100\’裁剪左边距离

.CropRight = 100\’裁剪右边距离

.CropTop = 50\’裁剪上边距离

.CropBottom = 50\’裁剪下边距离

.ColorType = msoPictureAutomatic\’设备颜色转换类型

End With

With ActiveSheet.PageSetup

.LeftHeader = \”&G\”\’设置页眉图片

.TopMargin = xGrObj.Height + 30\’设置页眉高度

End With

End Sub

本文内容实际有很大的拓展可能，分别对不同的页角进行设置，可以很好的体现个性化的文本打印效果，有需要赶快收藏学习吧！

关注、收藏

—END—