¿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 (Mantener formato) / Super Traducir (Mantener formato) / Redacción AI / Revisión con IA...
📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...
✏ Edición de Contenido: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tabla / 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, visita el grupo Eliminar...
➕ Inserciones creativas: Insertar separadores de miles / Casillas de verificación / Botones de opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...
🔍 Selecciones precisas: Selecciona 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 / Cambia entre ventanas de documentos /11 herramientas de conversión...
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 de Documentos: Dividir páginas / Combinar documentos / Convertir en lote a PDF
- ✏ Edición de Contenido: 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