如何将URL显示为图像＆amp;在另一个Excel单元格中调整大小

Question

Cell J Image

我希望将网址转换为图片，但我希望将图片放入新的单元格中并将其尺寸设置为一英寸。

我能够从另一个问题中获取一个脚本，但需要额外的脚本添加到它

这个编码与另一个问题相同，但没有添加将图像放入不同的单元格并调整大小

因此，J列中的URL将图像放在K列中，大小为1＆＃34; x 1＆＃34;

在这个例子中，.insert（v）被插入单元格＆＃34; J＆＃34;

Sub InstallPictures()

    Dim i As Long, v As String
    For i = 2 To 1903
        v = Cells(i, "J").Value
        If v = "" Then Exit Sub
        With ActiveSheet.Pictures
            .Insert (v)
        End With
    Next i
End Sub

由于