Como inserir a mesma imagem em várias planilhas rapidamente?
Normalmente, podemos inserir uma imagem em uma planilha rapidamente usando a função Inserir no Excel, mas você já tentou inserir a mesma imagem em todas as planilhas da sua pasta de trabalho? Neste artigo, vou apresentar um método útil para resolver essa tarefa.
Inserir a mesma imagem em todas as planilhas da pasta de trabalho com código VBA
Inserir a mesma imagem em todas as planilhas da pasta de trabalho com código VBA
O seguinte código VBA pode ajudá-lo a inserir uma imagem em todas as planilhas facilmente; por favor, siga estas instruções:
1. Pressione e segure 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: Insira a mesma imagem em todas as planilhas:
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 Intervalo("A1") é a célula onde você deseja inserir a imagem; altere-os para os seus próprios dados.
3. Em seguida, pressione a tecla F5 para executar este código, e a imagem específica será inserida em cada célula A1 de todas as planilhas de uma só vez. Veja a captura de tela:
Nota: A imagem inserida será ajustada para se encaixar no tamanho da célula.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins