CONHEÇA o BABOO PRO e a Comunidade BABOO que substituirão o site BABOO e esse fórum

Ir para conteúdo
  • Cadastre-se

Mensagem Recomendada

Pessoal, boa tarde.

Preciso de ajuda com uma macro que procure e insira imagens. Exemplo:

O nome da imagem a ser procurada é "Foto 1" e esta na célula "A1", o endereço da pasta com as imagens é "C:\Imagens" e por ultimo, a imagem devera ser inserida na célula "B2".

 Poderiam me ajudar ou direcionar a algum tópico com este assunto? 

Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Compartilhar este post


Link para o post
Compartilhar em outros sites

Após pesquisar consegui a solução com a macro:

Citar

imag = Range("L10") 'endereça célula com o nome da imagem'
'
    Range("c20").Select  'seleciona local onde a imagem será inserida"
    
    ActiveSheet.Pictures.Insert("C:\Imagens\" & imag & ".jpg"). _ 'endereço da pasta onde estão as imagens"
        Select
    
    For Each sh In ActiveSheet.Shapes
    If sh.Name Like "*Pict*" Then
    ActiveSheet.Shapes.Range(Array(sh.Name)).Select
        With Selection
            .Top = sh.TopLeftCell.Top
            .Left = sh.TopLeftCell.Left
            .ShapeRange.Height = 234
            .ShapeRange.Width = 254.25
        End With
    End If
    Next

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...