Note: The other languages of the website are Google-translated. Back to English

 ¿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

Cambie el tamaño de todas las imágenes al mismo tamaño según una imagen específica con Kutools para Word


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 Búsqueda de se muestra la ventana, seleccione la carpeta que contiene las imágenes que desea insertar, vea la captura de pantalla:

doc insertar imágenes con el mismo tamaño 1

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:

doc insertar imágenes con el mismo tamaño 2

5. Hacer clic 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:

doc insertar imágenes con el mismo tamaño 3

6. Y luego haz clic OK, todas las imágenes insertadas se han reorganizado con el mismo tamaño, vea la captura de pantalla:

doc insertar imágenes con el mismo tamaño 4

Nota:: 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!


Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.
Comentarios (4)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Hola hola
Soy Soda, estoy aquí para decir eso, realmente aprendo mucho con su sitio web y la información que brinda.
Gracias por eso :)
Este comentario fue minimizado por el moderador en el sitio
gracias por la ayuda... es muy interesante... gran trabajo... mucha suerte
Este comentario fue minimizado por el moderador en el sitio
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio de aumento/diminuisco le dimensioni delle immagini? ¿Porcentaje/reporte? píxel? ¿cm?
¡GRACIAS!
Este comentario fue minimizado por el moderador en el sitio
Hola Grasselli
El tamaño de la unidad es un estanque en el código VBA anterior.
¡Gracias!
No hay comentarios publicados aquí todavía
Por favor, deje sus comentarios en inglés.
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL