以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从EXCEL提取图片保存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149517)

--  作者:小狐459818941
--  发布时间:2020/5/5 9:31:00
--  从EXCEL提取图片保存
        Dim fl As String = ProjectPath & "Attachments\\" & dr("编号") & ".jpg"
        If Sheet(i,1).SaveImage(fl) Then \'如果照片保存成功
            dr("图片") = fileSys.GetName(fl)
        End If
这个保存下来的图片很模糊,请问各位大神,Sheet(i,1).SaveImage 能设置分辨率吗?

--  作者:有点蓝
--  发布时间:2020/5/5 9:35:00
--  
无法设定,是按照原图保存的,应该单元格的图片本身分辨率就小