Note: The other languages of the website are Google-translated. Back to English

¿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

Nota:: 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 de 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. Presione Ejecutar botón o F5 para ejecutar el código VBA, y la imagen seleccionada se ha redimensionado al tamaño de su necesidad.

Nota:: 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!


Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.
Comentarios (7)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
ahorre su dinero y ejecute esta macro: Crédito a Dave Sub resizeimages() Atenuar i siempre con ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With Finalizar sub
Este comentario fue minimizado por el moderador en el sitio
ahorre su dinero y ejecute esta macro: Crédito a Dave Sub resizeimages() Atenuar i siempre con ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End Con extremo secundario ¡¡¡Excelente!!! Salvaste mi dinero y mi tiempo. ¡Muchos gracias!
Este comentario fue minimizado por el moderador en el sitio
¿Dónde pongo este código?
Este comentario fue minimizado por el moderador en el sitio
¿Alguien sabe si un marcador de posición de imagen/cuentagotas/función de cambio de tamaño automático está disponible en Windows 365? No tengo idea de dónde buscar o encontrar ayuda en esto, ya que la ayuda del chat de Microsoft fue TAN inútil. Algún consejo sería de gran aprecio.
Este comentario fue minimizado por el moderador en el sitio
Necesito cambiar el tamaño de todas las imágenes en un documento de Word al mismo ancho pero no deformar las imágenes. así que escálelos al mismo ancho. ¿Es esto posible a través de una macro?
Este comentario fue minimizado por el moderador en el sitio
Si guarda su documento como .docx, podrá abrirlo como archivo zip. Habrá una carpeta multimedia con todas las imágenes (la mía tenía imágenes PNG). Luego puede usar programas como IrfanView, XnViewMP, FastStone Viewer para realizar transformaciones por lotes como cambiar el tamaño, reducir la profundidad del color, etc. Vuelva a empaquetar sus imágenes en zip y cámbiele el nombre a docx. Por ejemplo, en mi docx lleno de capturas de pantalla, necesitaba reducir la cantidad de colores a 8, lo cual es suficiente para fines de documentación. Después de procesar mi documento de 10 MB, se convirtió en un documento de 1.8 MB, por lo que los ahorros pueden ser significativos. Guarde siempre su docx original en caso de que desee restaurar imágenes después de demasiada degradación/procesamiento, etc.
Este comentario fue minimizado por el moderador en el sitio
Desperdicié unas buenas 3 horas o más tratando de hacer que estas macros de VBA funcionaran. ¡Se rindió y probó Kutools que funciona muy bien! ¡Lo compré de inmediato ya que bien vale los $ 49!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL