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
Anote os: 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:
Anote os: 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 Kutools for Excele experimente eficiência como nunca antes. Kutools for 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 a 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!
