¿Cómo cambiar automáticamente todas las imágenes para moverlas y cambiar el tamaño con las celdas en Excel?
Normalmente, se insertaba una imagen en la hoja de trabajo con las propiedades predeterminadas de Mover y no dimensionar con celdas. Debe cambiar manualmente sus propiedades a Mover y tamaño con la función de celdas en su hoja de trabajo según lo necesite. En realidad, puede cambiar rápidamente la imagen para que se mueva y cambie el tamaño de las celdas automáticamente con una solución alternativa. Y este artículo te mostrará el método para lograrlo.
Cambie automáticamente todas las imágenes para moverlas y cambiarlas de tamaño con celdas con código VBA
El siguiente código VBA puede ayudarlo a cambiar rápidamente las propiedades de todas las imágenes para moverlas y cambiar el tamaño con las celdas en una hoja de trabajo. Haz lo siguiente.
1. Abra la hoja de trabajo que contiene las imágenes que desea cambiar moviendo y dimensionando con celdas, luego abra el Microsoft Visual Basic para aplicaciones ventana presionando el otro + F11 llaves.
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 VBA: cambie todas las imágenes para moverlas y cambiar el tamaño con celdas
Sub MoveAndSizeWithCells()
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True
End Sub
3. presione el F5 o haga clic en el botón Ejecutar para ejecutar el código.
Luego, las imágenes en la hoja activa se cambian a Mover y cambiar el tamaño con celdas automáticamente.
Artículos relacionados:
- ¿Cómo centrar una imagen en una celda de 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!