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


  共有2582人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
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") '保存工作簿

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


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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2020/1/19 17:34:00 [显示全部帖子]

表格与图片已在附件中上传

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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2020/1/20 1:13:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:电气设计表格.xlsx


图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看
excel表,用代码引用图片后,出现两个莫名其妙的问题
图片点击可在新窗口打开查看此主题相关图片如下:捕获2.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2020/1/20 11:21:00 [显示全部帖子]

谢谢!老师,我再试一下,看能不能解决

 回到顶部