Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有2584人关注过本帖平板打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
swimmer01
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
[求助]  发帖心情 Post By:2020/1/19 17:19:00 [只看该作者]

老师,你好!
我有一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") '保存工作簿

运行结果的截图在附件中,谢谢!


 回到顶部