2011-06-10 33 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