以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]专业报表中图片问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70014)

--  作者:pcxjxjhkw
--  发布时间:2015/6/14 19:23:00
--  [求助]专业报表中图片问题
有很多图片加入到专业报表中,想实现:图片宽度大于页面宽度的,等比例缩小;图片宽度小于或等页面宽度的,不缩放。

求助大家,谢谢


--  作者:大红袍
--  发布时间:2015/6/14 19:33:00
--  

 把页面的宽度转成像素,和图片的大小比较,然后设置 宽高 http://www.foxtable.com/help/topics/1182.htm

 


--  作者:pcxjxjhkw
--  发布时间:2015/6/14 19:44:00
--  
就是这个问题,如何将像素转换成毫米?
Dim pwidth = Doc.PageSetting.Width.value - Doc.PageSetting.LeftMargin.Value - Doc.PageSetting.RightMargin.Value
                If rm.Image.Width / 96 * 25.4 > pwidth Then  

这个代码计算不准确,求老师再检查一下。谢谢

--  作者:大红袍
--  发布时间:2015/6/14 19:58:00
--  
 肯定准确。