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)
- 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”
- Hacer clic en crear
- 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
- Una vez pegado el código, este se guarda automáticamente.
- Cierra la ventana y realiza una prueba
- Inserta varias imágenes en un nuevo documento o sino en un informe o trabajo que contenga varias imágenes.
- 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)
- Nos vamos a Macros y damos clic en “ver macros” o sino (Alt+F8)
- 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: cambiar tamaño imágenes word, dimensionar imágenes, imagen, macro imagen, tamaño imagenes
Buen día, me sale un error donde dice que los macros de este proyecto estan deshabilitados ¿como puedo quitar este error? Gracias
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
Gracias, muy buena macro
Tremenda ayuda, muchas gracias…
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
por que me sale error de sintaxis? que esta mal
Excelente funciona muy bien.
gracias.
amigo me ahorro como 3 horas de trabajo gracias
me alegro que te haya servido, saludos!
Gracias a Carlos Bernal y a Wilson por compartir esta excelente macro. Funciona perfectamente en Word 2010
Hurra! Excelente aporte! Gracias
Muchas Gracias por la aportación me fue muy útil.
Excelente ayuda, no entiendo nada de macros pero su guía me ayudo bastante. Gracias por compartir sus conocimientos.
HOLA ME DICE QUE EL NOMBRE DEL MACRO ES INVALIDO; QUE PUEDO HACER ???