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---
欢迎关注、收藏