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

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

來源

2011-03-10 Mark

我剛剛嘗試了您的代碼，現在從Web服務器的虛擬圖像，它似乎在XL07 SP2上正常工作。你是否通過代理連接到互聯網？ – 2011-03-11 12:26:43

我也遇到過這個問題。我通過將圖像保存到硬盤驅動器然後將該路徑中的圖像插回到Excel來解決此問題。我沒有代碼了，但我記得那樣做就解決了這個問題。 – frenchie 2011-04-03 15:54:59

看看上面的代碼，你傳遞正確的URL嗎？
當使用瀏覽器發佈時，該URL是否獲取圖像（如jpeg）？

把Debug.Print sImageName在ActiveSheet.Pictures.Insert(sImageName).Select之前。
看來你正在生成的URL是不正確的。

來源

2011-04-03 17:24:57 shahkalpesh

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

回答

相關問題