Compartir a través de

Cambiar el tamaño a muchas imágenes dentro de un documento World...

Anónimas
2014-04-18T01:23:33+00:00

Saludos a todos. Espero me puedan ayudar. 

Soy médico y me dedico a la medicina interna y la ecosonografía. Actualmente utilizo Microsoft Office 2013. Cuando termino de realizar el ultrasonido a un paciente, el equipo me inserta todas las imágenes en un documento de World, con las medidas: alto: 6,14 cm x ancho 8,53 cm. A fin de reducir el número de hojas a imprimir, suelo reducir el tamaño de las imágenes a las medidas: alto: 4,02 cm x ancho: 5,57 cm, con la herramienta de imagen "Formato". Pero el esfuerzo es muy grande cuando tengo que reducir el tamaño a muchas imágenes por el tiempo que me toma. Estas son mis preguntas: 

1- ¿Cómo aumentar o reducir el tamaño (a x b cm) de varias imágenes a la vez, que están insertadas dentro de un documento World?

2- ¿Se necesita un Macro o puede hacerse solo con los comandos usuales? Esto es lo único que pude encontrar en la web: 

http://foro.noticias3d.com/vbulletin/showthread.php?t=367397

http://www.soloingenieria.net/foros/viewtopic.php?f=23&t=33823

3- ¿Puede hacerse también si están contenidas o insertadas dentro de una tabla, o solo puede hacerse con las imágenes pegadas de forma simple en el documento World? 

Espero con ansias sus consejos. 

Saludos cordiales.

K

Microsoft 365 y Office | Word | Para la casa | Windows

Pregunta bloqueada. Esta pregunta se migró desde la Comunidad de Soporte técnico de Microsoft. Puede votar si es útil, pero no puede agregar comentarios o respuestas ni seguir la pregunta.

0 comentarios
Respuesta aceptada por el autor de la pregunta
  1. Anónimas
    2014-04-19T02:42:07+00:00

    Esta macro cambia el ancho de todas las imágenes al valor especificado (2 cm en este caso):

    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 ejemplo, partiendo de este documento, donde las dos imágenes de la izquierda están en línea y las dos de la derecha son flotantes):

    Luego de ejecutar la macro, todas quedan de 2 cm de ancho y mantienen las proporciones. Este es el resultado:

    La macro funciona con imágenes dentro de tablas, y también si las tablas están flotantes.

    Acá encontrarás instrucciones para crear/pegar la macro de arriba. Una vez que la tengas funcionando, simplemente le asignas una secuencia de teclas o un botón y listo. No olvides cambiar el "2" del ejemplo al valor deseado (5.57). Si quieres la posibilidad de especificar ambos valores, dímelo, pero me pareció más lógico mantener las proporciones del original (aunque supongo que da lo mismo).

    Cualquier problema, me posteas acá.

    60+ personas han encontrado útil esta respuesta.
    0 comentarios
Respuesta aceptada por el autor de la pregunta
  1. Anónimas
    2014-04-21T20:19:43+00:00

    Los videotutoriales que encontré enseñan a grabar macros y asignarles un botón. En éste, las instrucciones para grabar una macro empiezan a los 16:50 y terminan a los 19:45 (pero puedes grabar algo mucho más breve, total luego pegarás el código correcto). Las instrucciones para modificar la macro empiezan a los 22:30. El código de la macro propiamente dicho está entre las líneas "Sub" y "End Sub."

    En cuanto a tu pedido, prueba primero lo que te he dado, pues la macro mantiene las proporciones de la imagen original (te da la altura correcta para el ancho que especificas). Si lo que quieres es poder estirar la imagen arbitrariamente, luego la cambiamos, pero eso la deformaría.

    20+ personas han encontrado útil esta respuesta.
    0 comentarios

23 respuestas adicionales

Ordenar por: Muy útil
Muy útil Más reciente Más antiguo
  1. Anónimas
    2015-07-01T00:01:41+00:00

    Basta con procesar el ancho y alto por separado. Indicamos además que no se mantenga la relación de proporciones. Solo tienes que modificar los valores al comienzo.

    Sub Redimensionar()

    ' Cambia el tamaño de todas las imágenes del documento

    ' Modificar los siguientes valores, expresados en cm

    Ancho = 2

    Alto = 3

    Ancho = CentimetersToPoints(Ancho)

    Alto = CentimetersToPoints(Alto)

    For Each Flotante In ActiveDocument.Shapes

        Flotante.LockAspectRatio = False

        Flotante.Height = Alto

        Flotante.Width = Ancho

    Next

    For Each EnLinea In ActiveDocument.InlineShapes

        EnLinea.LockAspectRatio = False

        EnLinea.Height = Alto

        EnLinea.Width = Ancho

    Next

    End Sub

    10+ personas han encontrado útil esta respuesta.
    0 comentarios
  2. Anónimas
    2014-04-21T01:33:10+00:00

    Hola Daniel.

    Muchas gracias por tu pronta respuesta. 

    Me he demorado en comentar, por tratar de aplicar lo que me explicas... Ni modo, es la primera vez que me enfrento al manejo de los Macros. Hasta ahora sólo le daba aceptar a la ventana que me sugería deshabilitar los Macros por seguridad en algunos documentos. Necesito cambiar también el alto (4.02 cm), además del ancho... No solo una de las medidas... ¿Podrías por favor redactar esa instrucción? En la que se ajusten los dos tamaños a la vez... 

    Te comento que lo intenté, pero dice un viejo refrán: "zapatero a sus zapatos..." y no logré hacerlo... 

    Por favor, dime además como puedo habilitarlo para que me quede fijo en todos los documentos... o si conoces de un link o post donde me expliquen cómo habilitar este Macro también te lo agradezco... Leí el link que me pones en la primer respuesta, pero no me ofrecen una guía paso a paso con capturas de pantallas o algo parecido para lograr este objetivo... De veras lamento mi ignorancia en tantos puntos...

    Quedo a la espera de tu respuesta.

    Saludos cordiales

    K

    1 persona ha encontrado útil esta respuesta.
    0 comentarios
  3. Anónimas
    2014-04-19T11:18:45+00:00

    Hola Karel:

    Además...

    1. Podrías mandar las imágenes a Powerpoint haciendo un album, y luego mandar un handout a Word, o imprimir desde el mismo PPT.
    2. A mí me gusta hacer este tipo de redimensiones en serie en Irfanview (gratis en www.irfanview.com, que además entiende el DICOM).

    Cordialmente

    Hans

    1 persona ha encontrado útil esta respuesta.
    0 comentarios