老师,你好!我有一excel表,用代码引用图片后,出现两个莫名其妙的问题:1:部分文字大小变了,原来表上的LOGO也变了,2:存为PDF后,自动页码也变了,找了很长时间的原因,都无果,望老师指导。
代码:代码运行正常
Dim Book As New XLS.Book(ProjectPath & "Temp\电气设计表格.xlsx") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(book.sheets(1).Name) '引用工作簿中的工作表
Sheet(1,1).Value = New XLS.Picture(GetImage(ProjectPath & "Temp\编制人.png"),3,3,120,30)
Sheet(2,1).Value = New XLS.Picture(GetImage(ProjectPath & "Temp\校核人.png"),3,3,120,30)
Sheet(3,1).Value = New XLS.Picture(GetImage(ProjectPath & "Temp\审核人.png"),3,3,120,30)
Book.SaveToPdf(ProjectPath & "Temp\电气设计表格3.xlsx") '保存工作簿
运行结果的截图在附件中,谢谢!