在 Excel 中从 URL 迁移图像

在 Excel 中从 URL 迁移图像

参考关于在 Excel 中从 URL 迁移图像的讨论如何在 Excel 单元格中将 URL 显示为图像?

VBA 代码看起来很完美并且可以运行,我的问题是如何将每个迁移的图像放置在具有指定大小的相邻单元格中。例如,如果我在单元格 A1 中有一个 URL,那么图像应该放在单元格 B1 中,大小为 100X100。

我很感谢你的帮助

答案1

尝试一下这个修改:

Sub InstallPictures_2()
    Dim i As Long, v As String, shp As Shape
    For i = 1 To 1000
        v = Cells(i, "A").Value
        If v = "" Then Exit For
        With ActiveSheet.Pictures
            .Insert (v)
            Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
            shp.Top = Cells(i, "B").Top
            shp.Left = Cells(i, "B").Left
            shp.Height = 100
            shp.Width = 100
        End With
    Next i

End Sub

相关内容