Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Determinar célula p...
 
Notifications
Clear all

Determinar célula para inserir

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
5 Posts
2 Usuários
0 Reactions
837 Visualizações
RSS
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Boa tarde Pessoal.

To importando imagem com a macro abaixo, mas gostaria de informar a célula destino.

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

Sub Imagem_na_Planilha()
Dim Plan As Worksheet, Imagem As Shape
Set Plan = ActiveSheet
Set Imagem = Plan.Shapes.AddPicture("Z:UserscsantosDesktopTeste PlanilhaSom51082600.jpg", msoFalse, msoCTrue, 50, 50, 70, 70)
End Sub

Obrigado !

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 04/04/2018 11:35 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 06/04/2018 10:38 am
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

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!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 07/04/2018 3:14 pm
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

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!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 07/04/2018 3:14 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/04/2018 9:19 am
Forum Jump:
  Tópico Anterior
Próximo Tópico