Formato de objeto. imagenes

30/03/2010 - 18:08 por Teletreks | Informe spam
Hola a todos y gracias por vuestra colaboración.

Necesitaria, si fuera posible, el código necesario para aplicar a todos los
objetos de un documento las siguientes características:

Formato de objeto> Escala> Alto 100% ; Ancho 100%
Formato de objeto> Escala> Bloquear relación de aspecto: no marcado
Formato de objeto> Diseño> Estilo de ajuste: delante del texo
Formato de objeto> Diseño> Alineación horizontal: centrada

Gracias y saludos a todos.

Preguntas similare

Leer las respuestas

#1 Ignacio
31/03/2010 - 11:31 | Informe spam
¡Hola Teletreks!

Prueba con este código:
With ActiveDocument.Content.ShapeRange
.ScaleHeight 1, msoTrue 'Escala Alto
.ScaleWidth 1, msoTrue 'Escala Ancho
.LockAspectRatio = msoFalse 'Bloquear relación de aspecto
.WrapFormat.Type = wdWrapNone 'Estilo de ajuste
.Left = wdShapeCenter 'Alineación horizontal
End With

Asegúrate de que las imágenes son del tipo Shape. Si no deberás
convertirlos de InlineShape a Shape.

Espero que te funcione.

Un saludo,
Ignacio.
Respuesta Responder a este mensaje
#2 Teletreks
07/04/2010 - 16:23 | Informe spam
Hola Ignacio, gracias por tu respuesta... pero la cosa no me acaba de
funcionar...

Estas líneas me dan problemas:
.WrapFormat.Type = wdWrapNone 'Estilo de ajuste
.Left = wdShapeCenter 'Alineación horizontal

Eliminándolas, la macro no da problemas, pero no tiene ningún efecto sobre
las imágenes... igual es por lo que comentas del tipo de imágenes de
InlineShape a Shape.

Pregunta:
como se que tipo de imagen es?
Como las transformo?

Como ves mis conocimientos... no son muy elevados. Gracias por tu paciencia
y colaboración.

Saludos.



"Ignacio" escribió:

¡Hola Teletreks!

Prueba con este código:
With ActiveDocument.Content.ShapeRange
.ScaleHeight 1, msoTrue 'Escala Alto
.ScaleWidth 1, msoTrue 'Escala Ancho
.LockAspectRatio = msoFalse 'Bloquear relación de aspecto
.WrapFormat.Type = wdWrapNone 'Estilo de ajuste
.Left = wdShapeCenter 'Alineación horizontal
End With

Asegúrate de que las imágenes son del tipo Shape. Si no deberás
convertirlos de InlineShape a Shape.

Espero que te funcione.

Un saludo,
Ignacio.
.

Respuesta Responder a este mensaje
#3 Ignacio
08/04/2010 - 10:35 | Informe spam
¡Hola, Teletreks!

Por si acaso no tienes definidas las constantes sustituye wdWrapNone
por 3 y wdShapeCenter por -999995, o sea:
.WrapFormat.Type = 3
.Left = -999995

Para saber si el tipo de imágenes es InlineShape o Shape escribe en la
ventana Inmediato:
?ActiveDocument.InlineShapes.Count
y pulsa <Intro>. Te dirá el número de imágens del tipo InlineShape.
?ActiveDocument.Content.ShapeRange.Count
y pulsa <Intro>. Si sale el error 5852 no tienes imágenes del tipo
Shape.

Cuando se inserta una imagen desde archivo se suele crear una imágen
InlineShape. Se distinguen porque en Formato de imagen..., pestaña
Diseño, el Estilo de ajuste es En línea con el texto y aparece
desactivada la Alineación horizontal.
Al cambiar el Estilo de ajuste se transforma automáticamente en una
imagen del tipo Shape.
También se pueden utilizar los métodos ConvertToInlineShape y
ConvertToShape para convertir las imágenes de un tipo al otro.

Espero que te sirva de ayuda.

Un saludo,
Ignacio.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida