No.1
Excel中设置页眉是一个比较好的操作，不仅可以让表格美观 ， 而且给工作表增加了不少特别的信息 。如何把自定义图片做为工作表页眉呢？
下面介绍一下，完成这个功能的vba代码 。
如上图所示，我们用到了一个对象，Graphic图形对象 。
此对象并不是表格里的图形，它是指定页眉页角里的图形，所以要和表格内图形要区分开来 。
获得这个对象的方法如下图：
它是通过PageSetup对象来返回的 。
如：Activesheet.PageSetup.LeftHeaderPicture
这里的LeftHeaderPicture就是Graphic对象 。
严格来说是顶部左上角的图形 。
下图为图形对象的属性 。
也就是通过下面的属性可以设置页眉图形的格式，如大小 ， 长短，明暗度等等 。
No.2
重点掌握了Graphic对象返回方法就已经完成一半的工作，所以，要对PageSetup对象有所了解，在以前的文章里有介绍 。
设置页眉图片代码：
Private Sub SetGraphic()'设置页眉图片Dim w As WorksheetSet w = ThisWorkbook.ActiveSheetDim g As GraphicSet g = w.PageSetup.LeftHeaderPicture'返回图形对象'属性设置With g.Filename = ThisWorkbook.Path & "picym01.jpg".LockAspectRatio = msoFalse '取消固定比例.Height = 40.Width = 200.CropTop = 10.CropLeft = 20.CropBottom = 10.CropRight = 10.Brightness = 0.5 '亮度End Withw.PageSetup.LeftHeader = "&G"w.PageSetup.HeaderMargin = 10End Sub可以看到代码中：Set g = w.PageSetup.LeftHeaderPicture'返回一个图形对象，赋值给对象g 。
接下来定义对象g的属性就完成页眉的设置了 。
其中Filename属性是图形的地址 ， 这里默认为当前文件目录下的Pic目录下的ym01.jpg文件 。修改为自己的图片地址即可 。
LockAspectRatio属性比较重要，它设置为False说明，当你修改图形大小的时候不按图形原始比例修改，也就是说可以随便任意修改大小 。
如果值为真TRUE，则大小比例自动调整，修改长度，高度自动变化，修改高度，长度自动改变 。
这一点在操作的当中，按需要进行设置 。
其它属性看表进行设置即可 。
是不是很简单！
---END---
【excel页眉怎么插图片 VBA如何插入页眉图片】欢迎关注、收藏