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