|
Responder ![]() |
Autor | |
Monica007 ![]() Nuevo ![]() ![]() Unido: 18/Julio/2019 Localización: México Estado: Sin conexión Puntos: 5 |
![]() 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 |
|
![]() |
|
jilo ![]() Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador ![]() Unido: 19/Diciembre/2004 Localización: TAFALLA Estado: Sin conexión Puntos: 959 |
![]() |
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.
|
|
Espero te sirva !!!!!!
Iñaki |
|
![]() |
|
prga ![]() Moderador ![]() Unido: 16/Noviembre/2004 Localización: España Estado: Sin conexión Puntos: 3510 |
![]() |
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 |
|
![]() |
|
Monica007 ![]() Nuevo ![]() ![]() Unido: 18/Julio/2019 Localización: México Estado: Sin conexión Puntos: 5 |
![]() |
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 |
|
![]() |
|
jilo ![]() Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador ![]() Unido: 19/Diciembre/2004 Localización: TAFALLA Estado: Sin conexión Puntos: 959 |
![]() |
Hola Mónica, Aquí tienes mucha información https://docs.microsoft.com/es-es/office/vba/api/overview/word |
|
Espero te sirva !!!!!!
Iñaki |
|
![]() |
|
Monica007 ![]() Nuevo ![]() ![]() Unido: 18/Julio/2019 Localización: México Estado: Sin conexión Puntos: 5 |
![]() |
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 |
|
![]() |
Responder ![]() |
|
Tweet
|
Ir al foro | Permisos de foro ![]() Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |