Hi，大家好，我是编程小6，很荣幸遇见你，我把这些年在开发过程中遇到的问题或想法写出来，今天说一说VBA编程，如何设置页眉和页脚图片，这里教你3分钟学会,希望能够帮助你!!!。

在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---

今天的分享到此就结束了，感谢您的阅读，如果确实帮到您，您可以动动手指转发给其他人。