vba自定义页脚 excel如何编辑页眉和页脚
在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---
【vba自定义页脚 excel如何编辑页眉和页脚】Tags:
推荐阅读
- word文档怎样编辑页眉页脚 word文档,怎么统一设置页眉页脚
- word 页眉页脚设置 word文档设置页眉页脚具体步骤
- 页眉页脚可以修改吗 页眉页脚修改怎么会一起跟着改动了
- 电脑休眠可以自定义快捷键啦! 休眠快捷键
- Word文档页眉页脚的删除方法? 页眉页脚怎么删除
- 苹果手机设置自定义铃声教程 iphone怎么设置手机铃声
- 手机QQ提示音怎么使用自定义铃声
- Word文档页眉页脚的删除方法? 怎么删除页眉页脚
- word怎样插入分节符怎样制作不同的页眉页脚
- WPS宏VBA哪里下载WPS的VBA官网下载