VBA代码:根据表单中输入的url将图像插入单元格

Sub InsertImage()
    Dim url As String
    Dim imagePath As String
    Dim cell As Range
    
    ' 获取表单中输入的URL
    url = InputBox("请输入图像的URL:")
    
    ' 下载图像到本地计算机
    imagePath = "C:\Temp\Image.jpg" ' 指定保存图像的路径和文件名
    URLDownloadToFile 0, url, imagePath, 0, 0
    
    ' 插入图像到单元格
    Set cell = Range("A1") ' 指定插入图像的单元格
    ActiveSheet.Pictures.Insert(imagePath).Select
    With Selection
        .ShapeRange.LockAspectRatio = msoFalse
        .ShapeRange.Width = cell.Width
        .ShapeRange.Height = cell.Height
        .ShapeRange.Top = cell.Top
        .ShapeRange.Left = cell.Left
    End With
    
    ' 删除下载的图像文件
    Kill imagePath
End Sub