Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿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 colocar estas imágenes en el mismo tamaño al insertarlas. 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 en función de una imagen específica con Kutools para Word


Cambiar el tamaño de todas las imágenes al mismo tamaño en función de la seleccionada:

Para cambiar el tamaño de todas las imágenes en el mismo tamaño, debe redimensionarlas una por una normalmente, pero, con Kutools for Word's Cambiar el tamaño de las imágenes función, puede ajustar todas las imágenes con el mismo tamaño por una seleccionada en. Por otro lado, también puede cambiar su tamaño a un porcentaje específico según lo necesite.

doc ajustar imágenes 05

Kutools for Word: con más de 100 complementos de Word prácticos, de prueba sin límite en días 60. Haga clic para descargar y prueba gratuita ahora!


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 de una vez, por favor haga lo siguiente:

1. Mantenga presionado 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: inserta 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 Buscar 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 altura y anchura que están separados por coma 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 en 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 en función de 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 igual que la específica.

Kutools for Word : con más de 100 complementos de Word prácticos, gratis para probar sin limitaciones en días 60.

Después de instalar Kutools for Word, haz lo siguiente:

1. Ajuste una imagen al tamaño que desee, y luego selecciónela, luego haga clic en Empresa > Cambiar el tamaño de las imágenes > Cambiar el tamaño de las imágenes con selección, mira la captura de pantalla:

Doc insertar imágenes con el mismo tamaño 5

2. Y todas las imágenes en este documento de palabras se han redimensionado de la misma forma que la seleccionada inmediatamente, vea la captura de pantalla:

Doc insertar imágenes con el mismo tamaño 6

¡Haz clic para descargar Kutools for Word y prueba gratuita ahora!



Herramientas recomendadas de productividad de palabras

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

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • Divida el documento actual en documentos separados según el encabezado 1, 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, y así...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Soda · 5 months ago
    Hi, hello
    I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
    Thanks for that :)