carlosrgs,

Boa tarde!

Não testei mas, creio que seja assim:

Sub Imagem_na_Planilha()
Dim Plan As Worksheet, Imagem As Shape
Set Plan = ActiveSheet
Set Imagem = Plan.Shapes.AddPicture(Range "B2").Value, msoFalse, msoCTrue, 50, 50, 70, 70)
End Sub

Boa noite Wagner

Obrigado pelo retorno, mas a parte do Z: se referencia ao endereço que a imagem está no PC
Na sua resposta retirou esse endereço, ai não tem de onde encontrar a foto!

Boa noite Wagner

Obrigado pelo retorno, mas a parte do Z: se referencia ao endereço que a imagem está no PC
Na sua resposta retirou esse endereço, ai não tem de onde encontrar a foto!

carlosrgs,

Boa tarde!

Valeu!

No seu primeiro post quando você disse

Como faço para determinar o destino da importação?

Entendi que se tratava do caminho (Destino) aonde a imagem está. Todavia, se é apenas o nome da imagem, basta colocar na célula o nome dela (imagem) e referenciar no código a célula. Mais ou menos assim:

Sub Imagem_na_Planilha()
Dim Plan As Worksheet, Imagem As Shape
Set Plan = ActiveSheet
Set Imagem = Plan.Shapes.AddPicture("Z:UserscsantosDesktopTeste PlanilhaSom" & Range ("B2").Value, msoFalse, msoCTrue, 50, 50, 70, 70)
End Sub