filipilima, se estiver copiando a imagem de alguma pag da internet, veja essa opcao se atende:
Selecione uma celula que quer inserir a imagem e cole o link da image nesta celula, em seguida execute a macro "Copy_Imagem"
Sub Copy_Imagem()
Call CopyPicFromWeb(Trim(ActiveCell), ActiveCell)
End Sub
Private Sub CopyPicFromWeb(strShpUrl As String, rngTarget As Range)
Dim shp As Shape
With rngTarget
With .Parent
.Pictures.Insert strShpUrl
Set shp = .Shapes(.Shapes.Count)
End With
shp.Left = .Left
shp.Top = .Top
End With
Set shp = Nothing
End Sub
Click em se a resposta foi util!
Postado : 11/12/2014 4:30 pm