¿Cómo insertar la misma imagen en varias hojas de trabajo rápidamente?

Normalmente, podemos insertar una imagen en una hoja de cálculo rápidamente utilizando la función Insertar en Excel, pero, ¿has intentado alguna vez insertar la misma imagen en todas las hojas de trabajo de tu libro? En este artículo, te presentaré un método útil para resolver esta tarea.

Insertar la misma imagen en todas las hojas de trabajo del libro con código VBA

Insertar la misma imagen en todas las hojas de trabajo del libro con código VBA

El siguiente código VBA puede ayudarte a insertar una imagen en todas las hojas de trabajo fácilmente, por favor sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Código VBA: Insertar la misma imagen en todas las hojas de trabajo:

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: En el código anterior, C:\Users\DT168\Desktop\pic\logo.png es la ruta y el nombre de tu imagen, y A1 en Rango("A1") es la celda donde deseas insertar la imagen; por favor, cámbialos según tus necesidades.

3. Luego presiona la tecla F5 para ejecutar este código, y entonces la imagen específica se habrá insertado en cada celda A1 de todas las hojas de trabajo al mismo tiempo. Ver captura de pantalla:

Nota: La imagen insertada se ajustará para adaptarse al tamaño de la celda.