2011-06-10 62 views

回答

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我想我只是學到了一些東西。 – 2011-06-11 13:49:47

+1

+1絕對精彩的看到這一點。 – datatoo 2011-06-11 19:49:10

+0

謝謝,我相信這會起作用。回覆晚了非常抱歉。 – RayLoveless 2012-01-10 21:03:29

-2

在谷歌表可以在IMAGE(URL)方法添加到您的CSV文件,它會被渲染(測試谷歌表)。

下面是一個例子:

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

在Google表格上是的,但問題是參考Excel – 2017-05-02 06:01:53