EXCEL表格中的URL图片如何显示_uei2

http://blog.sina.com.cn/u/2048257694

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

EXCEL表格中的URL图片如何显示

(2022-03-15 21:15:24)

标签：

excel

图片显示

分类：技术

通过收集表收集的图片，从后台下载的excel文件中显示是url链接形式，如果想全部呈现出来，下面这个方法还是相当给力的。制作成宏的形式，目的是为了显示多图，sheet2的C、D列是多图，通过查找替换的办法将链接中的间隔逗号进行了替换。替换内容放在sheet2的A1单元格中，内容是' style='max-height:400px;' / > < img src='。

完成显现后，将sheet2中的A2至F1000单元格中的内容保存到记事本中，保证后将后缀改为html就可以看到您想要的效果了。

Sub mypic()

For i = 2 To 1000
    If Sheet1.Range("A" & i).Value < > "" Then
        Sheet2.Range("A" & i).Value = "< div>" & Sheet1.Range("A" & i).Value
        Sheet2.Range("B" & i).Value = "< img src='" & Sheet1.Range("G" & i) & "' style='max-height:400px;' / >"
        Sheet2.Range("C" & i).Value = "< img src='" & Sheet1.Range("J" & i) & "' style='max-height:400px;' / >"
        Sheet2.Range("D" & i).Value = "< img src='" & Replace(Sheet1.Range("K" & i), ",", "'" & Sheet2.Range("A1").Value) & "' style='max-height:400px;' / >"
        Sheet2.Range("E" & i).Value = "< img src='" & Replace(Sheet1.Range("L" & i), ",", "'" & Sheet2.Range("A1").Value) & "' style='max-height:400px;' / >"
        Sheet2.Range("F" & i).Value = "< /div >"
    End If
Next
End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：2021教育竞赛东太湖实小开赛

新浪BLOG意见反馈留言板　欢迎批评指正