2011-06-10 13 views

Respuesta

18
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 
+1

+1 Creo que acabo de aprender algo. –

+1

+1 absolutamente maravilloso para ver esto. – datatoo

+0

Gracias, creo que esto funcionará. Lo siento por la respuesta tardía. – RayLoveless

-2

En Hojas de cálculo se puede añadir el IMAGEN (url) método para su archivo CSV y será generado (Probado en Hojas de cálculo).

Aquí se muestra un ejemplo:

=IMAGE("http://efdreams.com/data_images/dreams/lion/lion-03.jpg") 
+4

En hojas de cálculo de Google sí, pero la pregunta es en referencia a Excel –

Cuestiones relacionadas