¿Cómo insertar varias imágenes con el mismo tamaño en un documento de Word?
Normalmente, puede insertar varias imágenes a la vez en un documento de Word con su tamaño original. A veces, debe organizar estas imágenes en el mismo tamaño al insertar. En este artículo, hablaré sobre cómo insertar varias imágenes con el mismo tamaño en un documento de Word.
Inserte varias imágenes con el mismo tamaño en un documento de Word con código VBA
Inserte varias imágenes con el mismo tamaño en un documento de Word con código VBA
El siguiente código vba puede ayudarlo a insertar varias imágenes y cambiar su tamaño a su tamaño especificado a la vez, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
Código VBA: inserte varias imágenes con el mismo tamaño:
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. Y luego, presione F5 clave para ejecutar este código, una Explorar se muestra la ventana, seleccione la carpeta que contiene las imágenes que desea insertar, vea la captura de pantalla:
4. Luego haga clic OK , y se abre un cuadro de aviso para recordarle si desea cambiar el tamaño de las imágenes, vea la captura de pantalla:
5. Hacer clic Síy escriba los números de tamaño de la altura y el ancho que están separados por comas en el cuadro de texto, vea la captura de pantalla:
6. Y luego haz clic OK, todas las imágenes insertadas se han reorganizado con el mismo tamaño, vea la captura de pantalla:
Note: el tamaño de la unidad es estanque en código VBA.
Cambie el tamaño de todas las imágenes al mismo tamaño según una imagen específica con Kutools para Word
Si existen varias imágenes en su documento de Word, con Kutools for Word, Cambiar el tamaño de las imágenes utilidad, puede cambiar rápidamente el tamaño de todas las imágenes de la misma manera que la específica.
Kutools for Word : con más de 100 prácticos complementos de Word, prueba gratuita y sin límite en 60 días. |
Después de instalar Kutools for Word, haz lo siguiente:
1. Ajuste una imagen al tamaño que desee, selecciónela y haga clic en Kutools Más > Cambiar el tamaño de > Cambiar el tamaño de las imágenes con selección, ver captura de pantalla:
2. Y todas las imágenes en este documento de Word han cambiado de tamaño al igual que la seleccionada inmediatamente, vea la captura de pantalla:
¡Haga clic para descargar Kutools para Word y una prueba gratuita ahora!
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar páginas específicas / tablas / formas / párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegue rápidamente a cualquier ubicación / insertar automáticamente texto repetitivo / alternar sin problemas entre ventanas de documentos / 11 herramientas de conversión...