如何把这个文件里图片链接的图片显示到单元格内

lj1226189 · 发表于 2021-9-26 10:37

Book1.zip (8.1 KB, 下载次数: 7)

文件中只有链接我现在想转化成图片！！谢谢！！

lilyhcn1 · 发表于 2021-9-26 10:55

主题914，鲜花1，难道是传说的人中转贩子？

kwinawyeth · 发表于 2021-9-26 11:16

Sub 按钮1_Click()
On Error Resume Next
Dim hl As Hyperlink
Dim downl As Long
Dim xuhao As Integer
For Each hl In Sheet1.Hyperlinks
xuhao = xuhao + 1
downl = URLDownloadToFile(0, hl.Address, ThisWorkbook.Path & "/" & xuhao & ".jpg", 0, 0) '
Next
End Sub

复制代码

aman1516 · 发表于 2021-9-26 11:44

读取链接下载网络图片到本地，再插入图片到工作表，两个论坛上都有示例，搜索一下就可以套用

aman1516 · 发表于 2021-9-26 11:48

EXCEL如何自动调用网络图片
https://club.excelhome.net/thread-1261487-1-1.html

如何将表格中的图片链接转化成图片显示在表格中
https://club.excelhome.net/thread-1562111-1-1.html

aman1516 · 发表于 2021-9-26 12:23

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Sub Gethyp()
Dim Rng As Range, h
On Error Resume Next
For Each Rng In Range("N5:Q" & [A666].End(xlUp).Row)
If Rng.Hyperlinks.Count > 0 Then
h = Rng.Hyperlinks(1).Address ' Getlink(Rng)
URLDownloadToFile 0, h, ThisWorkbook.Path & "\temp.jpg", 0, 0
Sheet1.Shapes.AddPicture ThisWorkbook.Path & "\temp.jpg", 1, 1, Rng.Left, Rng.Top, Rng.Width, Rng.Height
Kill ThisWorkbook.Path & "\temp.jpg"
End If
Next
End Sub
Function Getlink(Rng As Range) As String
If Rng.Hyperlinks.Count > 0 Then Getlink = Rng.Hyperlinks.Item(1).Address Else Getlink = ""
End Function

复制代码

aman1516 · 发表于 2021-9-26 12:26

详见附件

Book1.rar (521.84 KB, 下载次数: 2)

		自动登录	找回密码
密码			免费注册

[求助] 如何把这个文件里图片链接的图片显示到单元格内