Macro mostrar links de fotos vba. error 400 en la 2ª, 3ª foto.

[h2ojuan]

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]

thumb02.xls

thumb03.xls

thumb.xls

[ioyama]

Hola h2ojuan

Bienvenido al foro.

El error podría estar en el tamaño de la imagen y el máximo admitido para el alto de fila.

Un saludo desde Vitoria

[h2ojuan]

[uSER=182]@ioyama[/uSER].

Muchas gracias por tu respuesta. ¿Esos tamaños se pueden modificar en el código? ¿Cómo? Aunque las imágenes de amazon son pequeñas y casi del mismo tamaño...