¿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.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos