Como inserir a mesma imagem em várias planilhas rapidamente?
Normalmente, podemos inserir uma imagem em uma planilha rapidamente usando a função Inserir do Excel, mas, você já tentou inserir a mesma imagem em todas as planilhas de sua pasta de trabalho? Neste artigo, vou apresentar um método útil para você resolver este trabalho.
Insira a mesma imagem em todas as planilhas da pasta de trabalho com código VBA
Insira 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 com facilidade, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
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
Note: No código acima, C:\Users\DT168\Desktop\pic\logo.png é o caminho e o nome da sua imagem, e A1 in Range("A1") é a célula onde você deseja inserir a imagem, altere-as para as suas.
3. Então aperte F5 para executar este código e, em seguida, a imagem específica foi inserida em cada célula A1 de todas as planilhas de uma vez. Veja a imagem:
Note: A imagem inserida será ajustada para caber no tamanho da célula.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!