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

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

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