[已解决]求助~excel如何批量建立含有图片的页眉

sessybaby

我百度了一下，想用vba建立，但按这个将 当前工作薄中的 所有工作表 中的页眉中 添加一个图片。
添加文字的代码 可以运行，但代码不行。请高手帮忙。谢谢

添加文字的代码
Dim EachSheet As Worksheet
For Each EachSheet In ThisWorkbook.Sheets
EachSheet.PageSetup.RightFooter = "页脚文字插入当前日期：" & Format(Date, "yyyy年m月d日")
EachSheet.PageSetup.LeftHeader = "页眉标题文字左对齐"     不能运行
EachSheet.PageSetup.CenterHeader = "页眉标题文字居中对齐"
Next EachSheet
黄色标记的是运行错误的，编译错误，我也不知这方法是否可行。只是试验不成功。

我没有学过vba，只会套用现成的。

我一个工作薄中含有100多张工作表，在页眉左端设置企业logo-图片格式和文字格式，一张张插入太繁琐，且每插入一次图片就得重新设置图片的高度和宽度，如何批量建立含有图片且在第一张工作表中设置好高宽度后不用修改的页眉呢？

谢谢大家。

最佳答案

月排行榜 / 总排行榜

zjdh

2014-1-4 15:45

1. Sub test()
   
2.     Dim EachSheet As Worksheet
   
3.     For Each EachSheet In ThisWorkbook.Sheets
   
4.         With EachSheet.PageSetup
   
5.             .LeftHeaderPicture.Filename = "D:\我的文档\1.jpg" '图片
   
6.             .LeftHeader = "&G"                               '页眉左
   
7.             .CenterHeader = "页眉标题"                        '页眉中
   
8.             .RightFooter = Format(Date, "yyyy年m月d日")       '页脚右
   
9.             .HeaderMargin = Application.InchesToPoints(0.6)   '页眉边距
   
10.         End With
    
11.     Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

yyyydddd8888

可以用录制宏得到代码。

zjdh

1. Sub test()
   
2.     Dim EachSheet As Worksheet
   
3.     For Each EachSheet In ThisWorkbook.Sheets
   
4.         With EachSheet.PageSetup
   
5.             .LeftHeaderPicture.Filename = "D:\我的文档\1.jpg" '图片
   
6.             .LeftHeader = "&G"                               '页眉左
   
7.             .CenterHeader = "页眉标题"                        '页眉中
   
8.             .RightFooter = Format(Date, "yyyy年m月d日")       '页脚右
   
9.             .HeaderMargin = Application.InchesToPoints(0.6)   '页眉边距
   
10.         End With
    
11.     Next
    
12. End Sub

复制代码

sessybaby

yyyydddd8888 发表于 2014-1-4 14:48
可以用录制宏得到代码。

得到代码后我不知如何为每个工作表建立logo页眉，只能一张张的点击 查看宏-宏名。我想批量建立。

sessybaby

zjdh 发表于 2014-1-4 15:45

谢谢，可以用了，但是图片的格式怎么批量改呢？原始图片格式的高宽度比例较大，我想修改成高度为50%的。

zjdh

Sub test()
    Dim EachSheet As Worksheet
    For Each EachSheet In ThisWorkbook.Sheets
        With EachSheet.PageSetup
            .LeftHeaderPicture.Filename = "D:\我的文档\1.jpg"    '图片
            With .LeftHeaderPicture
                   .Height = 30                                                   '图片高度
                   .Width = 30                                                   '图片宽度
            End With
            .LeftHeader = "&G"                                                 '页眉左
            .CenterHeader = "页眉标题"                                    '页眉中
            .RightFooter = Format(Date, "yyyy年m月d日")       '页脚右
            .HeaderMargin = Application.InchesToPoints(0.6)     '页眉边距
        End With
    Next
End Sub