https://ir.ozone.ru/s3/multimedia-7/wc350/6494414143.jpg 我想把这个地址转成图片显示在EXCEL 里面
时间: 2023-08-10 13:02:39 浏览: 187
要将图片显示在Excel中,你可以使用以下步骤:
1. 打开Excel,并选择你想要插入图片的单元格。
2. 在Excel菜单栏中,选择"插入"选项卡,然后点击"图片"按钮。
3. 在弹出的文件选择对话框中,浏览并选择你想要插入的图片文件。
4. 点击"插入"按钮,Excel会将选定的图片文件插入到选定的单元格中。
如果你希望在Excel中通过URL插入图片,那么你可能需要使用Excel的VBA宏编程来实现。下面是一个简单的VBA代码示例,可以将URL转换为图片并插入到Excel中:
```vba
Sub InsertPictureFromURL()
Dim picURL As String
Dim picData() As Byte
Dim tempFilePath As String
Dim tempFileName As String
' 图片的URL
picURL = "https://ir.ozone.ru/s3/multimedia-7/wc350/6494414143.jpg"
' 创建HTTP请求对象
Set httpReq = CreateObject("MSXML2.XMLHTTP")
' 发送HTTP请求获取图片数据
With httpReq
.Open "GET", picURL, False
.Send
picData = .responseBody
End With
' 保存图片数据到本地临时文件
tempFilePath = Environ("TEMP") & "\"
tempFileName = "temp.jpg"
Open tempFilePath & tempFileName For Binary Access Write As #1
Put #1, 1, picData
Close #1
' 插入图片到Excel
With ActiveSheet.Pictures.Insert(tempFilePath & tempFileName)
.Left = Range("A1").Left ' 设置图片左上角的位置
.Top = Range("A1").Top
.ShapeRange.LockAspectRatio = msoFalse ' 可以调整图片大小
End With
' 删除临时文件
Kill tempFilePath & tempFileName
End Sub
```
你可以按下Alt+F11打开Excel的VBA编辑器,将上述代码粘贴到"模块"中,然后运行`InsertPictureFromURL`宏,它将会在Excel的当前活动工作表中插入图片。请注意,这段代码将会在Excel的A1单元格的左上角插入图片。
希望以上信息对你有所帮助!
阅读全文