¿Cómo insertar la misma imagen en varias hojas de trabajo rápidamente?
Normalmente, podemos insertar una imagen en una hoja de trabajo rápidamente usando la función Insertar en Excel, pero, ¿alguna vez ha intentado insertar la misma imagen en todas las hojas de trabajo de su libro de trabajo? En este artículo, presentaré un método útil para que resuelva este trabajo.
Inserte la misma imagen en todas las hojas de trabajo del libro de trabajo con código VBA
Inserte la misma imagen en todas las hojas de trabajo del libro de trabajo con código VBA
El siguiente código VBA puede ayudarlo a insertar una imagen en todas las hojas de trabajo con facilidad, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: inserte 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
Note: En el código anterior, C:\Users\DT168\Desktop\pic\logo.png es la ruta y el nombre de tu imagen, y A1 in Range("A1") es la celda donde desea insertar la imagen, cámbiela por la suya.
3. Entonces presione F5 para ejecutar este código, y luego la imagen específica se insertó en cada celda A1 de toda la hoja de trabajo a la vez. Ver captura de pantalla:
Note: La imagen insertada se ajustará para adaptarse al tamaño de la celda.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!