注册 登录
自由的生活_软路由 返回首页

loverouter的个人空间 https://bbs.routerclub.com/?4192 [收藏] [复制] [分享] [RSS]

日志

Excel 图片URL地址直接显示图片

已有 1820 次阅读2018-6-2 21:48

Test() Dim Rng As Range Dim Cell As Range Dim Index As Integer Dim Limit As Integer Dim Max As Integer Index = 27 Limit = 25 Max = Index + Limit Set Rng = Range("E" & Index & ":E" & Max) For Each Cell In Rng With Cell Application.ScreenUpdating = False Dim d As Object, str$ Set d = New DataObject str = "<table><img src=""" + Cell + "?x-oss-process=image/resize,m_pad,h_120,w_120,color_eeeeee"" width=""100""></table>" d.SetText str d.PutInClipboard Range("E" & Index).Select Debug.Print "E" & Index & "->" & str ActiveSheet.PasteSpecial Format:="Unicode 文本", Link:=False, DisplayAsIcon:=False End With Index = Index + 1 Next Cell End Sub

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

QQ|Archiver|手机版|小黑屋|软路由 ( 渝ICP备15001194号-1|渝公网安备 50011602500124号 )

GMT+8, 2024-11-6 00:32 , Processed in 0.045739 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

返回顶部