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.