Saltar al contenido

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]

thumb02.xls

thumb03.xls

thumb.xls

Featured Replies

publicado

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

publicado
  • Autor

[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...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.