Este código sirve para dimensionar algunas o todas las imágenes de un documento Word, de acuerdo a la selección de las mismas; lo que se debe hacer es utilizar la herramienta Macros ubicada en la pestaña Vista, o directamente (Alt+F8)

  1. Damos un nombre al código Macro que dimensionara las imágenes. En mi caso que es el mismo del ejemplo lo he llamado “Re_Dimensionar_Imagen
  2. Hacer clic en crear
  3. Se abrirá la ventana emergente “Microsoft Visual Basic para Aplicaciones” y en la cual pegar el siguiente código:

Sub Re_Dimensionar_Imagen()

   Dim ishp As Word.InlineShape

For Each ishp In Selection.InlineShapes

        ishp.LockAspectRatio = False

        ishp.Height = InchesToPoints(3 / 2.54)

        ishp.Width = InchesToPoints(5 / 2.54)

Next ishp

End Sub

  1. Una vez pegado el código, este se guarda automáticamente.
  2. Cierra la ventana y realiza una prueba
  3. Inserta varias imágenes en un nuevo documento o sino en un informe o trabajo que contenga varias imágenes.
  4. Selecciona el rango del documento que contenga a las imágenes que desees redimensionar; no necesariamente se debe escogerlas de una en una. Para hacerlo con todas las imágenes debes seleccionar todo o directamente (Ctrl+E)
  5. Nos vamos a Macros y damos clic en “ver macros” o sino (Alt+F8)
  6. Seleccionamos nuestro macro (Re_Dimensionar_Imagen), damos clic en ejecutar y listo.

NOTA:

  • Asegúrate que la primera linea del código contenga el mismo nombre que diste al momento de crear el Macro
  • El texto con rojo en el código representa el alto de la imagen, puedes editar este campo a tu gusto.
  • El texto con azul en el código representa el ancho de la imagen, puedes editar este campo a tu gusto.

Espero les sea de mucha utilidad, saludos a todos!

Tags: , , , ,

14 comentarios on Cambiar tamaño a varias imágenes en Word (MACRO)

  1. Diego dice:

    Buen día, me sale un error donde dice que los macros de este proyecto estan deshabilitados ¿como puedo quitar este error? Gracias

  2. cjbernal dice:

    Hola, gracias por comentar.
    Dirigete a la siguiente ubicación:
    Archivo> Opciones> Centro de Confianza> «Configuración del Centro de Confianza»> Configuración de Macros, en este cuadro escoge la opción «Deshabilitar todas las macros con notificación» y luego aceptar.
    Cierra y abre nuevamente el Office, acepta la opción «Habilitar Macros» que te aparece en la hoja principal y mira si se soluciona el problema.
    Saludos

  3. Fabio dice:

    Gracias, muy buena macro

  4. Woporta dice:

    Tremenda ayuda, muchas gracias…

  5. WILSON dice:

    Sub Redimensionar()
    ‘ Cambia el ancho de todas las imágenes del documento
    ‘ al siguiente valor en cm (la altura se determina sola):
    Ancho = 2
    Ancho = CentimetersToPoints(Ancho)
    For Each Flotante In ActiveDocument.Shapes
    Flotante.Height = Ancho * Flotante.Height / Flotante.Width
    Flotante.Width = Ancho
    Next
    For Each EnLinea In ActiveDocument.InlineShapes
    EnLinea.Height = Ancho * EnLinea.Height / EnLinea.Width
    EnLinea.Width = Ancho
    Next
    End Sub

  6. Cristian dice:

    por que me sale error de sintaxis? que esta mal

  7. OTTO dice:

    Excelente funciona muy bien.

    gracias.

  8. JUAN dice:

    amigo me ahorro como 3 horas de trabajo gracias

  9. cjbernal dice:

    me alegro que te haya servido, saludos!

  10. James Linares dice:

    Gracias a Carlos Bernal y a Wilson por compartir esta excelente macro. Funciona perfectamente en Word 2010

  11. matias dice:

    Hurra! Excelente aporte! Gracias

  12. Ricardo Ruiz dice:

    Muchas Gracias por la aportación me fue muy útil.

  13. Angela dice:

    Excelente ayuda, no entiendo nada de macros pero su guía me ayudo bastante. Gracias por compartir sus conocimientos.

  14. ITZEL dice:

    HOLA ME DICE QUE EL NOMBRE DEL MACRO ES INVALIDO; QUE PUEDO HACER ???

Deja un comentario


Ir a la barra de herramientas