参考关于在 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