如何用VBA为页面添加图片页眉/页脚？

楼主
omnw

Q：如何用VBA为页面添加图片页眉/页脚？
A：使用PageSetup对象的RightFooterPicture、CenterFooterPicture、LeftFooterPicture、RightHeaderPicture、CenterHeaderPicture、LeftHeaderPicture属性为页面设置左/中/右的页眉/页脚。
下页代码以为设置图片左页脚为例介绍各项参数的作用。

Sub 图片页脚()
With ActiveSheet.PageSetup
.LeftFooter = "&G" '显示图像，如果没有此格式代码图片将不会被显示
With .LeftFooterPicture
.Filename = ThisWorkbook.Path & "\Water.jpg" '图片名称（带路径）
.Height = 558.75 '图片的高度
.Width = 756.75 '图片的宽度
.ColorType = msoPictureGrayscale '图像控制-颜色，此例为黑白
.CropBottom = 11.34 '剪切-下，图像下方剪切的尺寸
.CropLeft = 2.84 '剪切-左，图像左侧剪切的尺寸
.CropRight = 8.51 '剪切-右，图像右侧剪切的尺寸
.CropTop = 5.67 '剪切-上，图像下方剪切的尺寸
.LockAspectRatio = msoFalse '锁定纵横比
.Brightness = 0.55 '亮度
.Contrast = 0.4 '对比度
End With
End With
End Sub

图片颜色（ColorType属性值）表

名称	值	描述
msoPictureAutomatic	1	默认颜色转换。
msoPictureBlackAndWhite	3	黑白转换。
msoPictureGrayscale	2	灰度转换。
msoPictureMixed	-2	混和转换。
msoPictureWatermark	4	水印转换。

上一篇：如何用VBA从指定位置提取多个不重复字符的字符串？
下一篇：如何用Find方法查询合并单元格？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢

评论列表

sitemap