如何设置页眉(如何设置页眉下的横线)

在excel表格中，设置页眉页脚图片是一个非常有用的操作，可以提高文件图标格式的统一性。

如果加上一些公司LOGO，那就更需要加一张图了。

本文将使用VBA代码来介绍如何通过编码添加页眉和页脚图片。

如下图所示，添加了左上角的一张图片，是表头图片，不是插入图片。可以看到第二页也会自动添加一个页角。事实上，所有页面都会自动添加。

然后介绍如何达到这种效果。

首先，我们将使用一个对象，即图形对象。

空没有显示图形对象，它需要返回另一个对象的属性。

如下表所示:

PageSetup对象的几个属性将返回一个图形对象。

它们分别指页眉的左、中、右图片对象和页脚的左、中、右图片对象。

就好理解多了。

PageSetup对象在上一篇文章中已经介绍过，具体内容请查看。

PageSetup对象由WorkSheet对象的属性返回。

单词有点混乱。让我们看下面的一行代码:

设置xGobj=ActiveSheet。PageSetup.LeftHeaderPicture

这样就获得了一个图形对象xGobj，它代表了左上角页眉的图片。

下面使用Graphic对象的一些属性来设置相关内容，如下图所示:

设置好以上属性后，就可以对左上角页眉的图片进行格式设置了。

具体代码可以在文章后面查看。

这里还需要一行代码来确定标题中显示的图片。

ActiveSheet。PageSetup . LeftHeader = & # 34& G & # 34

下图是图像转换效果的枚举类型，也是ColorType属性的可选值。实际上，这就是标题图像的显示方式。默认为原图显示、黑白显示、灰度显示等。在实际操作中，可以设置不同的值来逐一调试。

为什么这么说？主要是因为是同一个图。不同的颜色可以表现出不同的效果，就像同样的红色。每个人的眼睛都不一样的红。有人看到深红色，有人看到浅红色，有人看到黄色，这并不奇怪。

也就是说，世界没有颜色，但是你的大脑告诉你，世界是多彩的。

代码:

代码是学习的重点内容。如果你理解的很深，其实并不难，用这种方法实现一个自动化的流程也是一件很有意义的事情。

Private Sub NewLeftPictrue()Dim xGrObj As ObjectSet 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 WithWith ActiveSheet.PageSetup .LeftHeader = "&G"'设置页眉图片 .TopMargin = xGrObj.Height + 30'设置页眉高度End WithEnd Sub

private Sub NewLeftPictrue()Dim xGrObj As object set xGrObj = active sheet。page setup . LeftHeaderPicture & # 39；用xgrobj . filename = this workbook . path & # 34；\ pic \ 001.jpg & # 34'默认图片。宽度= 30。身高= 80。锁定纵横比= true & # 39设置相同的比例。brightness = me . textbox 1 . value & # 39；设置亮度。对比=我。TextBox2 . Value & # 39设置对比度。CropLeft = 100 & # 39裁剪左侧距离。CropRight = 100 & # 39向右裁剪距离。CropTop = 50 & # 39裁剪顶部距离。CropBottom = 50 & # 39剪辑底部距离。color type = msopictureautomatic & # 39；颜色转换类型以活动sheet . page setup . left header = & # 34；& G & # 34'设置标题图片。TopMargin = xGrObj。身高+30 & # 39；设置带有结束接头的割台高度

其实这篇文章的内容有很大的拓展可能性。设置不同的页角可以很好的体现个性化的文字打印效果。很有必要赶紧收藏学习！

欢迎，收藏

-结束-