Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Alexandre Ataide

RESPONDIDO Excel macro para inserir imagem

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

×
×
  • Criar Novo...