Saltar al contenido principal

¿Cómo cambiar el tamaño de todas / varias imágenes en Word?

Cuando copiamos o importamos imágenes de Internet u otros archivos, el tamaño de las imágenes puede variar. Todo el mundo sabe cómo cambiar el tamaño de las imágenes una por una, pero si queremos cambiarlas al mismo tamaño de una vez, ¿cómo podemos hacerlo? Este tutorial le mostrará varios métodos para cambiar el tamaño de las imágenes.

Cambiar el tamaño de las imágenes manualmente en Word

Cambiar el tamaño de las imágenes con VBA

Cambiar el tamaño de varias imágenes a la vez con Kutools para Word


Cambiar el tamaño de las imágenes manualmente en Word

1. Para mostrar los controladores de tamaño de la imagen haciendo clic en la imagen;

2. Coloque el cursor en uno de los controles de tamaño de la imagen.

3. Arrastre el controlador de tamaño hasta que el tamaño de la imagen sea adecuado para sus necesidades. Ver captura de pantalla:

doc ajustar imágenes 1

Note: Con este método, no puede cambiar el tamaño de varias imágenes a la vez. Debe cambiar su tamaño uno por uno hasta que se cambie el tamaño de todas las imágenes.


Cambiar el tamaño de las imágenes con VBA

Con el siguiente código VBA, puede cambiar el tamaño de las imágenes a su tamaño ideal. Puede hacerlo de la siguiente manera:

En este ejemplo, cambiamos el tamaño de la imagen a 1.78 pulgadas de alto y 3.17 pulgadas de ancho.

1. Seleccione una imagen cuyo tamaño desee cambiar;

2. prensa Alt + F11 para abrir el Microsoft Visual Basic para aplicaciones ventana;

3. Hacer clic Módulo en recuadro pestaña, copie y pegue el siguiente código VBA en el Módulo ventana;

Código VBA: cambie el tamaño de una imagen a un tamaño específico:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Haga clic Ejecutar botón o F5 para ejecutar el código VBA, y la imagen seleccionada se ha redimensionado al tamaño de su necesidad.

Note: En el código anterior,  En shp.Height = Pulgadas a puntos (1.78) y shp.Width = pulgadas a puntos (3.17) son la altura y el ancho de la imagen, puede cambiar el tamaño para satisfacer sus necesidades.

Con este código VBA, tampoco puede cambiar el tamaño de todas o varias imágenes a la vez. Debe alternar entre el documento de Word y el Microsoft Visual Basic para aplicaciones ventana para seleccionar la imagen y aplicar el código. Eso lleva demasiado tiempo.


Cambiar el tamaño de las imágenes con Kutools para Word

Con Kutools para Word 's Cambiar el tamaño de las imágenes utilidad, puede deshacerse de esas operaciones molestas y lentas, y cambiar rápidamente el tamaño de todas las imágenes de su documento.

Kutools for Word : con más de 100 prácticos complementos de Word, prueba gratuita y sin límite en 60 días. 

1. Aplique esta utilidad haciendo clic en Kutools Más > Cambiar el tamaño de. Ver captura de pantalla:

2. Si desea cambiar el tamaño de todas las imágenes a un cierto porcentaje de su tamaño original, seleccione uno de los seis porcentajes de la lista desplegable. Por ejemplo, si desea cambiar el tamaño de todas las imágenes al 50% de su tamaño original, seleccione 50%. Después de hacer clic 25%, verá que todas las imágenes se han dimensionado al 50%. Ver captura de pantalla:

doc ajustar imágenes 3

Si desea ajustar todas las imágenes al mismo tamaño con una seleccionada, seleccione una imagen como tamaño del modelo y luego haga clic en Kutools Más > Cambiar el tamaño de > Cambiar el tamaño de las imágenes con selección, y todas las imágenes cambiarán de tamaño al mismo tamaño en función de la seleccionada, vea la captura de pantalla:

doc ajustar imágenes 4

Para obtener información más detallada acerca de Kutools for Word, Cambiar el tamaño de las imágenes utilidad, haga clic en aquí.

¡Haga clic para descargar Kutools para Word y una prueba gratuita ahora!


Demostración: cambie el tamaño de todas las imágenes a la vez en Word

Kutools for Word: con más de 100 prácticos complementos de Word, prueba gratuita y sin límite en 60 días. ¡Descarga y prueba gratis ahora!

Las mejores herramientas de productividad de oficina

Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!

Sumérgete en las funciones resaltadas a continuación o haga clic aquí para explorar todo el poder de Kutools para Word.

📘 Dominio del documento: Dividir páginas  /  Combinar documentos  /  Exportar selección en varios formatos (PDF/TXT/DOC/XLSX)  /  Convertir por lotes a PDF  /  Exportar páginas como imágenes  /  Imprima varios archivos a la vez ...

Edición de contenidos: Buscar y reemplazar por lotes en varios archivos   /  Cambiar el tamaño de todas las imágenes   /  Transponer filas y columnas de tabla  /  Convertir tabla en texto ...

🧹 Limpieza sin esfuerzobarrer Espacios extra  /  Saltos de sección  /   Todos los encabezados  /  Cuadros de texto  /  Los hipervínculos  /  Para obtener más herramientas de eliminación, diríjase a nuestro grupo de eliminación

Inserciones creativas: recuadro Mil Separadores  /  Casillas de verificación  /  Botones de radio  /  Código QR   /  Barcode  /  Tabla de líneas diagonales  /  Título de la ecuación  /  Captura de imagen  /  Pie de tabla  /  Varias imágenes  /  Descubra más en nuestro Grupo Insertar

🔍 Selecciones de precisión: Identificar páginas específicas  /  tablas  /  formas  /  párrafos de encabezado  /  Navega con facilidad usando nuestro Grupo Selecto

Mejoras de estrellas: Navegue rápidamente a cualquier ubicación  /  insertar automáticamente texto repetitivo  /  alternar sin problemas entre ventanas de documentos  /  11 herramientas de conversión ...

Transforma tus tareas de Word con Kutools. 👉 Descargue con prueba de 30 días ahora 🚀.

 
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx. For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
This comment was minimized by the moderator on the site
I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
This comment was minimized by the moderator on the site
Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations