• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Sign in to follow this  
Followers 0
Gois

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

2 posts in this topic

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

0

Share this post


Link to post
Share on other sites

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.:

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

0

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0