¿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 extraordinarias!
🤖 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...
📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Exportar rango en varios formatos (PDF/TXT/DOC/HTML...) / Conversión por lote a PDF...
✏ Edición de cuerpo: Buscar y reemplazar en lote en múltiples 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 / Cuadro de texto / Hipervínculos / Descubre más herramientas de eliminación en el grupo Eliminar...
➕ Inserciones creativas: Insertar delimitador de miles / Casilla de Verificación / Botón 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 / Forma / Párrafo de Encabezado / Mejora la navegación con más funciones de Seleccionar...
⭐ Mejoras destacadas: Navega a cualquier rango / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documento /11 herramientas de Conversión...
🌍 Compatible con más de40 idiomas: Usa Kutools en tu idioma preferido: ¡soporta inglés, español, alemán, francés, chino y más de40 idiomas adicionales!
✨ Kutools para Office – ¡Una sola instalación, cinco potentes herramientas!
Incluye Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools para Word · Kutools para PowerPoint
📦 Obtén las5 herramientas en una sola suite | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorra tiempo y aumenta tu productividad al instante
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
- 📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Conversión por lote a PDF
- ✏ Edición de cuerpo: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar Saltos de sección
- ➕ Inserciones creativas: Insertar delimitador de miles / Insertar Casilla de Verificación / Crear Códigos QR
- 🌍 Compatible con más de40 idiomas: ¡Kutools habla tu idioma – compatible con más de40 idiomas!