Ir para conteúdo


Revista PROGRAMAR – Edição 46 (Setembro 2014): Download já disponível!

- - - - -

Colar imagens que estão dentro de uma pasta com nome igual - Excel

excel imagens vba

  • Por favor inicie sessão para responder
1 resposta a este tópico

#1 Gois

Gois

    Boolean User

  • Membro
  • PipPipPip
  • 100 mensagens

Publicado 06 de Agosto de 2013 - 17:14

Boa tarde,

Preciso de uma macro que me compare os valores que estão na linha B2:E2 com o nome de imagens que estão num determinado ficheiro.

Quando for igual copiar para a celula acima.

Por exemplo:

Valor da celula em C2 é igual ao nome da imagem que está numa determinada pasta, então colar imagem na celula C1, e assim, sucessivamente, até terminar os valores na linha 2.

Ainda sou muito nabo em VBA :S e estou anhar..alguma ajuda seria apreciada! :)

cumps,
Gois

#2 sergio.costa

sergio.costa

    void

  • Membro
  • PipPip
  • 47 mensagens

Publicado 06 de Agosto de 2013 - 23:58

Boas...

para comparar o texto de uma celula com o nome de um ficheiro podes usar o comando Dir(Patch). Este comando devolve o nome do ficheiro no caso de ele existir ou entao "" (vazio) no caso de o ficheiro nao existir.

Ex.:

Código (vb.net):
Private Sub Verificar_Ficheiro()

Dim Caminho as String
Dim Ficheiro as String

Caminho = "C:\User\Desktop\"
Ficheiro = "Teste.jpg"

If Dir(Caminho & Ficheiro) = Ficheiro then

         MsgBox ("O ficheiro existe")

Else

         MsgBox ("O ficheiro não existe")

End If

End Sub
 

Ainda assim podes dar uma olhadela nese link pois tem uma serie de operações para gerir arquivos.
http://www.macoratti.net/file_vb.htm#cap10


Agora quanto a parte de adicionares uma imagem numa celula pelo que estive a ler nao será muito facil de o fazer pois para alem de a inserires teras de dimensiona-la atraves de codigo...

Mais uma vez da uma vista de olhos aki:
http://www.ehow.com.br/inserir-figura-celula-excel-como_23471/

https://www.google.pt/webhp?source=search_app&gws_rd=cr#bav=on.2,or.r_cp.r_qf.&fp=769a46c1bf6e267e&q=inserir+uma+imagem+numa+celula+de+ecxel