KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo insertar y redimensionar imágenes con el mismo tamaño en Word?

AutorXiaoyang Fecha de modificación

Normalmente, puede insertar varias imágenes a la vez en un documento de Word con sus Tamaño original. Sin embargo, hay ocasiones en las que necesita asegurarse de que todas las imágenes tengan el mismo tamaño para lograr un aspecto uniforme y profesional. Cambiar manualmente el tamaño de cada imagen puede llevar mucho tiempo. Esta guía le mostrará cómo insertar eficazmente varias imágenes en un documento de Word y redimensionarlas de forma uniforme, garantizando un diseño profesional y coherente.

Inserte y redimensione varias imágenes al mismo tamaño en Word mediante VBA

Redimensione todas las imágenes para que coincidan con una imagen específica mediante Kutools para Word

Inserte y redimensione varias imágenes al mismo tamaño en Word mediante VBA

El siguiente código VBA le permite insertar varias imágenes y ajustarlas simultáneamente a las dimensiones que usted especifique. Siga estos pasos:

  1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
  2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
    3. Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub
  3. Pulse F5 para ejecutar este código. Aparecerá una ventana de Examinar. Seleccione la carpeta que contiene las imágenes que desea insertar y haga clic en Aceptar.Ventana de exploración
  4. Aparecerá un mensaje preguntando si desea cambiar el tamaño de las imágenes. Haga clic en Sí.Cuadro de diálogo de confirmación que dice «¿Desea cambiar el tamaño de todas las imágenes?»
  5. Introduzca la altura y la anchura en puntos (pt), separadas por una coma, en el cuadro de texto que aparece y, a continuación, haga clic en Aceptar.

    Cuadro de diálogo para especificar el tamaño

  6. Todas las imágenes insertadas se redimensionarán ahora a las dimensiones especificadas.

    Todas las imágenes insertadas se redimensionan

Redimensione todas las imágenes para que coincidan con una imagen específica mediante Kutools para Word

Cuando su documento de Word contiene varias imágenes, redimensionarlas una a una puede resultar tedioso. Con Kutools para Word, la utilidad Redimensionar Imágenes le permite ajustar rápidamente el tamaño de todas las imágenes para que coincidan con el de una específica.

Kutools para Word

Kutools para Word le ayuda a gestionar las tareas diarias con documentos más rápido gracias a herramientas prácticas integradas directamente en Microsoft Word: sin programación ni configuración compleja.

  • Redacción, corrección, traducción y resumen con IA
  • Buscar y reemplazar en lote en todos los documentos
  • Combina y divide documentos de Word fácilmente
  • Conversión masiva entre Word y PDF
DescargarMás información
  1. Ajuste una imagen al tamaño deseado y selecciónela. A continuación, haga clic en KUTOOLS PLUS > Redimensionar > Redimensionar Todas las Imágenes Basado en la Selección.Opción Redimensionar todas las imágenes según la selección en la pestaña Kutools Plus de la cinta de opciones

Todas las imágenes del documento de Word se redimensionarán al instante para ajustarse al tamaño de la imagen seleccionada.

Todas las imágenes se redimensionan para coincidir con el tamaño de la imagen seleccionada

¿Busca una forma más rápida de gestionar tareas similares en Word? Pruebe Kutools para Word y simplifique su trabajo diario.

DescargarMás información

Las mejores herramientas de productividad para Office

Kutools para Word- Potencie su experiencia en Word con más de 100funciones extraordinarias

🤖Funcionalidades de KUTOOLS AI: Asistente de IA / Asistente en Tiempo Real / Super Pulir (conservar formato) / Super Traducir (conservar formato) / Redacción con IA / Revisión con IA…

📘Dominio del documento: Dividir páginas, combinar documentos, exportar selecciones en varios formatos (PDF, TXT, DOC, HTML…) y convertir varios documentos a PDF…

✏Edición de contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de la tabla / Convertir tabla a texto...

🧹Limpieza sin esfuerzo: Elimine rápidamente espacios adicionales, saltos de sección, cuadros de texto e hipervínculos. Para más herramientas de eliminación, vaya al grupo Eliminar…

➕Inserciones creativas: Inserte separadores de miles, casillas de verificación, botones de opción, códigos QR, códigos de barras o varias imágenes. ¡Descubra más en el grupo Insertar…

🔍Selecciones precisas: Localice exactamente páginas específicas, tablas, formas o párrafos de encabezado. Mejore la navegación con más funciones de selecciónfeatures ......

⭐Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Alterna entre documentos de Windows / 11 …herramientas de conversión…

🌍Compatible con 40+ idiomas: Use Kutools en su idioma preferido – compatible con inglés, español, alemán, francés, chino y 40+ más idiomas

Pestañas Kutools for Word en la cinta de opciones
 
 

Office Tab- Aporta una 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 ventanas nuevas.
  • ¡Aumente su productividad en un 50 % y ahorre cientos de clics de ratón cada día!

✨ Kutools for Office – ¡Una instalación, cinco herramientas potentes!

Incluye Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint

📦 Obtenga las 5 herramientas en un único conjunto | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorrar tiempo y aumente su productividad al instante

Las mejores herramientas de productividad para Office

Kutools para Word- Herramientas 100+ para Word

Descarga gratuitaComprar ahoraMás información sobre Kutools