2011-06-10 8 views

cevap

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 ben sadece bir şey öğrendim düşünüyorum: Burada

bir örnektir. Bunu görmek için –

+1

+ 1 kesinlikle harika. – datatoo

+0

Teşekkürler Bunun işe yarayacağına inanıyorum. Geç cevap için özür dilerim. – RayLoveless

-2

Google E sitesinde CSV dosyası IMAGE (URL) yöntemi ekleyebilir ve render (Google E üzerinde test) yapılacaktır.

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

Google E-Tablolar'da evet, ancak soru Excel'e atıfta bulunuyor –