| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 图片缩放 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154489) |
| -- 作者：漂亮美眉vszh -- 发布时间：2020/9/16 11:11:00 -- 图片缩放 绘图板上另存为一张图片 粘到EXCEL指定地点 但图片偏宽， 如何按比例把图片缩小 不是设置固定的高度宽度（因为高度不一定，动态） stPast = CF_Address & "\\ProcStructPic2_" & ips & ".jpg" New XLS.Picture(GetImage(stPast),0,0)
|
| -- 作者：有点蓝 -- 发布时间：2020/9/16 11:20:00 -- Dim img As image = getImage(stPast) dim w as integer = 100 dim h as integer = 100 / img.width * img.height ‘高度按比例缩放 New XLS.Picture( img,0,0,w,h)
|