Macro mostrar links de fotos vba. error 400 en la 2ª, 3ª foto.
publicado
Al intentar ejecutar este código para que me descargue links de fotos y los muestre en la siguiente columna, me sale un error de Visual Basic 400. La cuestión que empieza a funcionar y despues de mostrar la 2ª, 3ª, 4ª imagen sale el error.
¿Alguién sabe como podría solucionar esto? Disculpas porque soy bastante novato y muchas gracias de antemano.
Sub pix()
Dim url_column As Range
Dim image_column As Range
Set url_column = Worksheets(1).UsedRange.Columns("A")
Set image_column = Worksheets(1).UsedRange.Columns("B")
Dim i As Long
For i = 1 To url_column.Cells.Count
With image_column.Worksheet.Pictures.Insert(url_column.Cells(i).Value)
.Left = image_column.Cells(i).Left
.Top = image_column.Cells(i).Top
image_column.Cells(i).EntireRow.RowHeight = .Height
End With
Next
End Sub[/CODE]
Al intentar ejecutar este código para que me descargue links de fotos y los muestre en la siguiente columna, me sale un error de Visual Basic 400. La cuestión que empieza a funcionar y despues de mostrar la 2ª, 3ª, 4ª imagen sale el error.
¿Alguién sabe como podría solucionar esto? Disculpas porque soy bastante novato y muchas gracias de antemano.
thumb02.xls
thumb03.xls
thumb.xls