** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Word
  Mensajes nuevos Mensajes nuevos RSS - Ayuda con macro para imagen
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAyuda con macro para imagen

 Responder Responder
Autor
Mensaje
Monica007 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Julio/2019
Localización: México
Estado: Sin conexión
Puntos: 5
Enlace directo a este mensaje Tema: Ayuda con macro para imagen
    Enviado: 18/Julio/2019 a las 01:01
Hola, saludos

Tengo un archivo en word que tiene bastantes imágenes.

Problema Necesito centrar esas imágenes de manera horizontal en la hoja y que queden con ajustar texto transparente

Eso lo puedo hacer de una por una usando lo siguiente:

De manera manual

Seleccionar la imagen e ir a herramientas de imagen, formato, ajustar texto, ajustar texto transparente y moviendo la imagen hacia el centro de los márgenes

Pero habrá alguna forma de hacerlo con una macro ya que como mencione son bastantes imágenes cerca de 500

Traté de hacer una macro con grabar macro, pero al intentarlo, la imagen seleccionada pierde su selección e impide que salga el menú de herramientas de imagen y por consecuencia todo el proceso restante de manera manual se pierde o no se puede ejecutar

 Al intentar usar la opción de mayúscula  mas f10 me sale un menú donde aparece tamaño y posición donde una las opciones es ajuste de texto pero no hay posibilidad de señalar la que me interesa que es ajuste de texto.

 De antemano se agradece la ayuda prestada

Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 959
Enlace directo a este mensaje Enviado: 18/Julio/2019 a las 11:56
Hola Monica,
Te dejo una macro que recorre todasd las imagenes de un Documento Word y te las centra. Lo de ajustar texto trasparante en Access2010 no mo tengo.

Sub CentrarTodasImagenesDeUnDOc()
   With ActiveDocument
      For x = 1 To .InlineShapes.Count
            .InlineShapes.Item(x).Select
            Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
            Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
      Next
   End With
End Sub

Espero te sirva !!!!!!
Iñaki
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3523
Enlace directo a este mensaje Enviado: 18/Julio/2019 a las 13:16
Hola.
Prueba con este otro código a ejecutar en thisdocument:

Public Sub arreglaimagenes()
Dim miinline As InlineShape
Dim mishape As Shape
For Each miinline In ActiveDocument.InlineShapes
Set mishape = miinline.ConvertToShape
mishape.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
mishape.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
mishape.RelativeHorizontalSize = wdRelativeHorizontalSizeMargin
mishape.RelativeVerticalSize = wdRelativeVerticalSizeMargin
mishape.Left = wdShapeCenter
mishape.LeftRelative = wdShapePositionRelativeNone
mishape.Top = CentimetersToPoints(0.52)
mishape.TopRelative = wdShapePositionRelativeNone
mishape.WidthRelative = wdShapeSizeRelativeNone
mishape.HeightRelative = wdShapeSizeRelativeNone
mishape.LockAnchor = False
mishape.LayoutInCell = True
mishape.WrapFormat.AllowOverlap = False
mishape.WrapFormat.Side = wdWrapBoth
mishape.WrapFormat.DistanceTop = CentimetersToPoints(0)
mishape.WrapFormat.DistanceBottom = CentimetersToPoints(0)
mishape.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
mishape.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
mishape.WrapFormat.Type = wdWrapThrough
Next
End Sub

Se supone que las imágenes están en línea con el texto (inlineshapes)
Con las pruebas hechas en word 2016 con 10 imágenes,  parece ser que se cumple lo pedido, eso sí tarda un poco. Con 500 imágenes ???
Otra cosa es los ajustes de las distancias y como posiblemente se acorte el documento......
NOTA.-Desde no sé que versión de word, da la sensación que la grabadora de macros solo funciona con objetos "flotantes" (shapes).
Espero que ayude a resolver la duda.
Ya comentas.
Un saludo a todos

Arriba
Monica007 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Julio/2019
Localización: México
Estado: Sin conexión
Puntos: 5
Enlace directo a este mensaje Enviado: 18/Julio/2019 a las 21:33
Agradeciendo la pronta respuesta de jilo y de prga

Probadas, Las dos funcionan

Antes de dar por cerrado el tema

Una pregunta más, pero esta es sobre donde obtener información sobre el uso de las macros con word porque la verdad no he encontrado casi nada sobre ello, en cambio para excel abunda en la red

Algún libro que hable exclusivamente o más acerca de las macros en word  y por ejemplo de este problema de la grabadora de macros que se deshabilitan funciones cuando se trata de imágenes  o de tablas

Y nuevamente agradeciéndoles la ayuda prestada para mi problema


Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 959
Enlace directo a este mensaje Enviado: 22/Julio/2019 a las 09:29
Hola Mónica,
Aquí tienes mucha información

https://docs.microsoft.com/es-es/office/vba/api/overview/word

Espero te sirva !!!!!!
Iñaki
Arriba
Monica007 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Julio/2019
Localización: México
Estado: Sin conexión
Puntos: 5
Enlace directo a este mensaje Enviado: 22/Julio/2019 a las 20:26

Gracias jilo

 Ya lo visite antes de contestarte y creo que voy a utilizar mucho mi tumbaburros para comenzar a traducir.

Se Agradece nuevamente la ayuda  y por consiguiente damos por cerrado el tema

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable