Question

我有一个Excel工作簿（Excel 2013，Windows 10），其中包含我计算机上的jpg文件路径的列（列“ B”），我想要一个宏，该宏将在所有插入行中工作将图片的缩略图放到路径左侧（即“ A”列中）的单元格中。

我不是宏VBA编码器，通常会记录接近我想要的宏，然后编辑它为我记录的代码。因此，我知道我可以编写一个宏，该宏仅记录我执行该操作并运行该宏。但是，当我尝试将其概括时，尽管出现了与先前运行的错误相同的错误，但还是出现了错误。

因此，此宏有效-

Sub Macro1()
'
' Macro1 Macro
'
    Range("A4").Select
    ActiveSheet.Pictures.Insert("D:\My Documents HDD\...(path)...\Filename.jpg").Select
End Sub

但是这不起作用-

Sub Insert_picture_from_URL()
'
' Insert_picture_from_URL Macro
'
    Dim i As Long, v As String, w As String
        For i = 1 To 200
            v = ("B" & i)
            w = ("A" & i)
            Range(w).Select
            ActiveSheet.Pictures.Insert(v).Select
        Next i
End Sub

我收到“运行时错误'1004'：无法获取Pictures类的Insert属性”

请您告诉我我要去哪里错了？我意识到我需要添加代码以将缩略图的大小调整为合理的大小，但是我需要首先使其工作。

谢谢。

Answer 1

未经测试：

Sub Insert_picture_from_URL()
'
' Insert_picture_from_URL Macro
'
    Dim i As Long, v As String, w As String
        For i = 1 To 200
            With ActiveSheet.Pictures.Insert(Cells(i, 2).Value)
                .Top = Cells(i, 1).Top
                .Left = Cells(i, 1).Left
            End With
        Next i
End Sub

如何从URL列表将图片插入Excel工作簿？

1 个答案: