ActiveSheet.Pictures.Insert在Excel 2007中不起作用

ActiveSheet.Pictures.Insert不适用于Excel 2007中的远程图像…任何人都有另一种方法？

Public Sub InsertImages() Dim iIndex As Integer Dim sImageName As String Dim sImageCell As String For iIndex = 3 To 30 sImageName = "http://images.server.com" & ActiveSheet.Range("DV" + Trim(Str(iIndex))).Value sImageCell = "DW" + Trim(Str(iIndex)) ActiveSheet.Pictures.Insert(sImageName).Select With Selection.ShapeRange .Top = Range(sImageCell).Top + 20 .Left = Range(sImageCell).Left + 20 .Height = Range(sImageCell).Height - 40 .Width = Range(sImageCell).Width - 40 End With Next End Sub 

Answer 1

看看上面的代码，你传递正确的url？
当使用浏览器发布时，该URL是否获取图像（如jpeg）？

把Debug.Print sImageName放在ActiveSheet.Pictures.Insert(sImageName).Select 。
看来你正在生成的URL是不正确的。