以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求Excel报表页眉中插入图片的方法，我插入的图片生成报表时都会消失。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68329)
--  作者：guning007
--  发布时间：2015/5/14 21:40:00
--  求Excel报表页眉中插入图片的方法，我插入的图片生成报表时都会消失。
我想在Excel报表的页眉中放一张图片，图片是固定的，所以觉得不需要引用。

但是我发现，如果是文字页眉，在生成报表时可以正常显示，但是如果插入图片，在生成报表时会消失。

这个问题困扰好几天了，我查了论坛上面的类似问题，说的都看不懂。

难道不刻意直接在页眉中插入图片吗？

那要怎么做？求详细！多谢！
--  作者：大红袍
--  发布时间：2015/5/14 21:44:00
--  

 1、插入图片；

 

 2、用代码处理生成报表

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\监造周报.xls")
Dim fl As String = ProjectPath & "Reports\\监造周报.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
With Sheet.PrintSetting
    .Header = "&R&G"
End With
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
--  作者：guning007
--  发布时间：2015/5/14 21:51:00
--  
不用代码不可以吗？我想用模版生成文件，代码我还没有学会。谢谢
--  作者：大红袍
--  发布时间：2015/5/14 21:53:00
--  

 不行，必须用代码，你做一个按钮，把红色代码替换成自己的文件名

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\监造周报.xls")
Dim fl As String = ProjectPath & "Reports\\监造周报.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
With Sheet.PrintSetting
    .Header = "&R&G"
End With
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
--  作者：guning007
--  发布时间：2015/5/14 21:54:00
--  
红版，这些代码要写在哪里？多谢！
--  作者：大红袍
--  发布时间：2015/5/14 21:55:00
--  

 http://www.foxtable.com/help/topics/0213.htm