Como inserir rapidamente a mesma imagem em várias folhas de cálculo?
Normalmente, conseguimos inserir uma imagem numa folha de cálculo rapidamente através da função Inserir no Excel — mas já alguma vez tentou inserir a mesma imagem em todas as folhas do seu livro? Neste artigo, apresentamos-lhe um método prático para resolver esta tarefa.
Inserir a mesma imagem em todas as folhas do livro com código VBA
Inserir a mesma imagem em todas as folhas do livro com código VBA
O seguinte código VBA permite-lhe inserir uma imagem em todas as folhas de forma simples. Siga estes passos:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Inserir a mesma imagem em todas as folhas:
Sub InsertLogo()
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "C:\Users\DT168\Desktop\pic\logo.png"
If Dir(xPath) = "" Then
MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
Exit Sub
End If
For I = 1 To ActiveWorkbook.Sheets.Count
Set xRg = Sheets(I).Range("A1")
Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
Next
End Sub
Nota: No código acima, C:\Users\DT168\Desktop\pic\logo.png é o caminho e o nome da sua imagem, e A1 em Range("A1") é a célula onde pretende inserir a imagem. Por favor, ajuste-os conforme necessário.
3. Em seguida, prima a tecla F5 para executar este código e a imagem especificada será inserida simultaneamente na célula A1 de todas as folhas. Veja a captura de ecrã:
Nota: A imagem inserida será redimensionada automaticamente para caber na célula.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos