excel 2013 inserindo imagens automaticamente

Question

Eu tenho uma pasta que tem arquivos de imagem, pic1, pic1a, pic2, pic2a .... etc até pic22a

Eu tenho uma planilha que tem espaços para cada foto a ser colocada. As imagens mudam em uma base diária, mas os nomes dos arquivos permanecem os mesmos. Cada dia eu tenho que imprimir um pdf da planilha com fotos atualizadas. É possível fazer com que a planilha seja atualizada automaticamente com as novas imagens, em vez de alterar manualmente as imagens todos os dias. Eu pensei que isso seria relativamente simples, no entanto, aparentemente não.

por simplicidade, vamos dizer que as imagens devem ser localizadas A1: B2, C1: D2, etc. e as imagens estão localizadas na pasta "pictures-here \"

alguém pode oferecer alguma ajuda, ou saber de um método que eu possa utilizar

Muito obrigado João

    

Answer 1

Esta é uma solução preliminar. Experimente estas duas macros.

Sub Del_Pics()

    Dim MyPics As Object
    For Each MyPics In ActiveSheet.Pictures
        MyPics.Delete
    Next MyPics

End Sub

Sub Add_Pics()
   On Error Resume Next
   Range("C1").Select
   ActiveSheet.Pictures.Insert ("C:\Temp\pic1.jpg")
   Range("F1").Select
   ActiveSheet.Pictures.Insert ("C:\Temp\pic1a.jpg")
End Sub

As primeiras Macros chamadas Del_Pics irão apagar todas as imagens inseridas do arquivo. Presume-se que você não tenha nenhuma imagem inserida estática no arquivo que deseja estar sempre presente nela.

A segunda macro Add_Pics adiciona as respectivas imagens nas respectivas células do arquivo. Você precisa modificar isso para especificar o nome exato do arquivo & caminho e localização da célula, conforme aplicável na sua planilha. Repita para todas as fotos. Uma solução mais inteligente para percorrer todos os arquivos em uma pasta e colocá-los nas respectivas células também é possível.

Esta é uma solução preliminar. Isso não verifica o tamanho da imagem e ajusta a altura, etc.

Pressione ALT + F11 para acessar o VBA Editor e insira um módulo no menu Inserir e insira o código acima nele.

Quando você precisa executar o mesmo. Pressione ALT + F8 para acessar a caixa de diálogo Macro e selecione e execute as macros pretendidas. Você pode gostar de combinar os dois em um único código também. Coloque o código Del_Pics primeiro.