OnlineTao Internet Marketing

Given a long list of urls in an excel spreadsheet this macro will automatically insert their related images into adject cells.

Sub imageExport()

Dim i
i = 1

Dim bContinue
bContinue = True

While bContinue
snapshot = Cells(i, 1).Value
If snapshot = “” Then
bContinue = False
Else
Cells(i, 2).Select
ActiveSheet.Pictures.Insert(snapshot).Select
i = i + 1
End If
Wend

End Sub