Inserir imagem (png) em várias guias ao mesmo tempo

Question

Alguém saberia dizer se há como inserir uma figura (logo) em todas as guias de uma planilha ao mesmo tempo (que não seja no cabeçalho)? Ou seja, em uma planilha já existente contendo digamos, 50 guias, há como incluir um logo em todas? Já tentei selecionando todas as guias da planilhas, mas ao selecionar mais que uma guia o botão "inserir/imagem" fica desabilitado. Também tentei colando a figura, mas não surtiu efeito.

Answer 1

Olá aca_junior!

Para fazer esta ação será necessário criar um código no VBA. Um modelo de código é:

Sub Inserir_Logo()

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets 'Laço de repetição para varrer todas planilhas

If sh.Visible = xlSheetVisible Then 'Verifica se é uma planilha visível

Range("A1").Select 'Célula onde deve ser inserida o logo

sh.Pictures.Insert("C:....\Logo.png").Select 'Adiconar o Logo

End If

Next sh

End Sub

Adapte o código conforme a sua necessidade. Para utilizá-lo, você deve precionar ALT+F11 para abrir o VBE, inserir um novo módulo no projeto do arquivo e colar o código lá, modificando o caminho da imagem da logo, e então pressione o botão de PLAY na barra de icones.

Abraços!

Answer 2

Muitíssimo agradecido Rafael! Funcionou perfeitamente!

Um abraço!

Antonio Carlos