我試圖從URL中提取圖像并將其嵌入Excel中 .

我的Excel表格很簡單：它包含2列 .

第1列具有圖像URL . 在第2列中，我想嵌入圖像 . 我使用以下代碼 . 它在第一行工作得非常好，我在本地機器上保存了圖像并給出了路徑，但是當嘗試直接從URL嵌入時它失敗了 . 我收到以下錯誤：

Error - Run time 1004 , unable to get the insert property for the picture class.

我的代碼：

Sub Button1_Click()

'ActiveSheet.Pictures.Insert("C:\810CfHBPGyL._SX425_.jpg").Select

'Updateby Extendoffice 20161116

Dim Pshp As Shape

Dim xRg As Range

Dim xCol As Long

'On Error Resume Next

Application.ScreenUpdating = False

Set Rng = ActiveSheet.Range("A2:A3")

MsgBox "Step1"

For Each cell In Rng

filenam = cell

MsgBox "Step2" & cell

ActiveSheet.Pictures.Insert(filenam).Select

MsgBox "Step3"

Set Pshp = Selection.ShapeRange.Item(1)

'MsgBox "Step4" & Pshp

If Pshp Is Nothing Then GoTo lab

xCol = cell.Column + 1

Set xRg = Cells(cell.Row, xCol)

With Pshp

.LockAspectRatio = msoFalse

.Width = 80

.Height = 80

.Top = xRg.Top + (xRg.Height - .Height) / 2

.Left = xRg.Left + (xRg.Width - .Width) / 2

End With

lab:

Set Pshp = Nothing

Range("A2").Select

Next

Application.ScreenUpdating = True

End Sub

這可能是Excel VBA引用的問題嗎？

總結

以上是生活随笔為你收集整理的java内嵌excel_如何在Excel中嵌入URL中的图像？的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。