Migrando Imagens do URL no Excel

Question

Referência a esta discussão sobre a migração de imagens da URL no excel Como posso exibir uma URL como uma imagem em uma célula do Excel?

O código VBA parece perfeito e funcionando, minha pergunta aqui é como colocar cada imagem migrada na célula adjacente com o tamanho especificado. por exemplo, se eu tiver um URL na célula A1, a imagem deve ser colocada na célula B1 com tamanho 100X100.

Agradeço a ajuda

    

Answer 1

Tente esta modificação:

Sub InstallPictures_2()
    Dim i As Long, v As String, shp As Shape
    For i = 1 To 1000
        v = Cells(i, "A").Value
        If v = "" Then Exit For
        With ActiveSheet.Pictures
            .Insert (v)
            Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
            shp.Top = Cells(i, "B").Top
            shp.Left = Cells(i, "B").Left
            shp.Height = 100
            shp.Width = 100
        End With
    Next i

End Sub