Question

我正在尝试从URL中提取图像并将其嵌入Excel中。

我的Excel工作表很简单：它包含2列。

第1列包含图像URL。在第2列中，我想嵌入图像。我正在使用以下代码。对于我已将图像保存在本地计算机上并给出路径的第一行，它工作得很好，但是当尝试直接从URL嵌入时，它失败。我收到以下错误：

错误-运行时1004，无法获取图片类的insert属性。

我的代码：

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引用可能有问题吗？

如何在Excel中从URL嵌入图像？

0 个答案: