新浪博客

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

2022-03-15 21:15阅读:
通过收集表收集的图片,从后台下载的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

我的更多文章

下载客户端阅读体验更佳

APP专享