¿Cómo centrar una imagen en una celda de Excel?
Este artículo le mostrará un método para mover imágenes al centro de las celdas en una hoja de cálculo de Excel como se muestra a continuación.
Mueva la imagen al centro de la celda con el código VBA
Mueva la imagen al centro de la celda con el código VBA.
Haga lo siguiente para mover imágenes al centro de las celdas en una hoja de cálculo en Excel.
1. Abra la hoja de trabajo que contiene las imágenes que necesita centrar en las celdas, luego presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Módulo. Luego copie y pegue el código VBA en la ventana Código.
Código de VBA: mueva las imágenes al centro de las celdas en la hoja de trabajo
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
Notas:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3. presione el F5 clave para ejecutar el código.
Luego, todas las imágenes especificadas se moverán al centro de ciertas celdas inmediatamente, como se muestra a continuación.
Artículos relacionados:
- ¿Cómo cambiar automáticamente todas las imágenes para moverlas y cambiar el tamaño con las celdas en Excel?
- ¿Cómo verificar si una celda contiene una imagen en Excel?
- ¿Cómo insertar una imagen o una imagen dinámicamente en la celda según el valor de la celda en Excel?
- ¿Cómo agrandar la imagen al hacer clic en ella en Excel?
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!