¿Cómo insertar y redimensionar imágenes al mismo tamaño en Word?
Normalmente, puedes insertar varias imágenes a la vez en un documento de Word con sus tamaños originales. Sin embargo, hay ocasiones en las que necesitas asegurarte de que todas las imágenes tengan el mismo tamaño para lograr una apariencia consistente y profesional. Redimensionar manualmente cada imagen puede ser muy laborioso. Esta guía te mostrará cómo insertar eficientemente múltiples imágenes en un documento de Word y redimensionarlas uniformemente, garantizando un diseño profesional y cohesivo.
Insertar y redimensionar múltiples imágenes al mismo tamaño en Word usando VBA
Insertar y redimensionar múltiples imágenes al mismo tamaño en Word usando VBA
El siguiente código VBA puede ayudarte a insertar múltiples imágenes y redimensionarlas a las dimensiones especificadas de una sola vez. Por favor, sigue estos pasos:
- Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic for Applications.
- Haz clic en Insertar > Módulo, y pega el siguiente código en la ventana del Módulo.
- Presiona F5 para ejecutar este código. Aparecerá una ventana Examinar. Selecciona la carpeta que contiene las imágenes que deseas insertar y haz clic en Aceptar.
- Aparecerá una solicitud preguntando si deseas redimensionar las imágenes. Haz clic en Sí.
- Introduce la altura y el ancho en puntos (pt), separados por una coma, en el cuadro de texto que aparece, y luego haz clic en Aceptar.
- Todas las imágenes insertadas ahora se redimensionarán al tamaño especificado.
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
Redimensionar todas las imágenes para que coincidan con una imagen específica usando Kutools for Word
Cuando tu documento de Word contiene múltiples imágenes, redimensionarlas una por una puede ser tedioso. Con Kutools for Word, la utilidad Redimensionar Imágenes te permite redimensionar rápidamente todas las imágenes para que coincidan con el tamaño de una específica.
- Ajusta una imagen al tamaño deseado y selecciónala. Luego haz clic en Kutools Plus > Redimensionar > Redimensionar Todas las Imágenes Basado en la Selección.
Todas las imágenes en el documento de Word se redimensionarán inmediatamente para coincidir con el tamaño de la imagen seleccionada.
Las mejores herramientas de productividad para Office
Kutools para Word: ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!
🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Conservar Formato) / Super Traducir (Conservar Formato) / Redacción AI / Revisión con IA...
📘 Dominio del Documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...
✏ Edición de Contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...
🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, ve al grupo Eliminar...
➕ Inserciones creativas: Insertar separadores de miles / casillas de verificación / botones de opción / Código QR / Código de Barras / múltiples imágenes / Descubre más en el grupo Insertar...
🔍 Selecciones precisas: Localiza páginas específicas / tablas / formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...
⭐ Mejoras destacadas: Navega a cualquier ubicación / inserta automáticamente texto repetitivo / alterna entre ventanas de documento /11 herramientas de conversión...
🌍 Compatible con más de40 idiomas: Utiliza Kutools en tu idioma preferido: admite Inglés, Español, Alemán, Francés, Chino y más de40 idiomas.
Las mejores herramientas de productividad para Office
Kutools para Word: más de 100 herramientas para Word
- 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
- 📘 Dominio del Documento: Dividir páginas / Combinar documentos / Convertir en lote a PDF
- ✏ Edición de Contenidos: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar saltos de sección
- ➕ Inserciones creativas: Insertar separadores de miles / Insertar casillas de verificación / Crear Códigos QR
- 🌍 Compatible con más de40 idiomas: ¡Kutools habla tu idioma! Se admiten más de40 idiomas.