Imprimir página | Cerrar ventana

Ayuda con macro para imagen

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Word
Descripción del foro: Foro de Word
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84605
Fecha de impresión: 26/Marzo/2026 a las 19:28


Tema: Ayuda con macro para imagen
Publicado por: Monica007
Asunto: Ayuda con macro para imagen
Fecha de publicación: 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


Respuestas:
Publicado por: jilo
Fecha de publicación: 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

Publicado por: prga
Fecha de publicación: 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

Publicado por: Monica007
Fecha de publicación: 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



Publicado por: jilo
Fecha de publicación: 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

Publicado por: Monica007
Fecha de publicación: 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



Imprimir página | Cerrar ventana