5 votos

Un millar de imágenes JPEG en un documento de Word: ¿cómo puedo formato de la misma manera?

Por favor, suponga que tiene un documento de Microsoft Word 2007: usted acaba de insertar en ella alrededor de un millar de imágenes JPEG.

Con la primera imagen, hacer clic derecho, luego de FORMATO de IMAGEN, luego la opción "cambiar color" y, a continuación, seleccione "BLANCO Y NEGRO" en la segunda fila "MODOS de COLOR".

¿Cómo se puede automatizar el proceso de dar el mismo "formato de imagen" comando a los otros 999 imágenes JPEG?

Acabo de probar con el FORMATO de PINTOR, pero no tuve éxito.

Alguna pista?

Esta es una PREGUNTA similar, NO hay RESPUESTAS: http://thedailyreviewer.com/windowsapps/view/formatting-all-pictures-in-a-word-document-in-one-go-11962810

¿Cómo puedo seleccionar todas las imágenes de una sola vez, para un formato coherente, de modo que todos parecen el mismo a lo largo de mi documento de word, es decir, de manera que todos tienen el mismo ajuste de texto a los márgenes, por ejemplo... y son todos de la misma % tamaño de la original? Si word no me permite "seleccionar todo" para las fotos, puedo copiar el el formato de las fotos y, a continuación, péguela sobre las otras fotos de alguna manera, similar para el formato de cepillo se utiliza para el texto?

Gracias de antemano por su amable ayuda.

7voto

Alex K Puntos 378

Usted puede:

Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureGrayscale
Next

3voto

freeradicalx Puntos 61

Ok, muchas gracias a Alex K., la solución es la siguiente:

Sub Macro1()
'
' Macro1 Macro
'
'
Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureBlackAndWhite
Next
End Sub

He aceptado Alex K. solución, porque encontró la manera correcta de resolver el problema. La palabra clave correcta es msoPictureBlackAndWhite en lugar de msoPictureGrayscale.

Muchas gracias, Alex K. ;-)

EnMiMaquinaFunciona.com

EnMiMaquinaFunciona es una comunidad de administradores de sistemas en la que puedes resolver tus problemas y dudas.
Puedes consultar las preguntas de otros sysadmin, hacer tus propias preguntas o resolver las de los demás.

Powered by:

X