lundi 20 avril 2015

exel macros getting an image from url

i´m making a macro on exel 2013 to get the URL from a column(Column "f" and put it on the next column(Column "G") i already make a code but it dosent work as i want

Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) With rngTarget.Parent .Pictures.Insert strShpUrl .Shapes(.Shapes.Count).Left = rngTarget.Left .Shapes(.Shapes.Count).Top = rngTarget.Top End With End Sub

Sub Obtener_imagen() On Error Resume Next For i = 2 To 3 Call GetShapeFromWeb(Range("f" & i).Value, Hoja1.Range("a65536").End(xlUp).Offset(6, i)) Next i End Sub

Aucun commentaire:

Enregistrer un commentaire