Fecha actual Lun, 19 May 2025, 07:25
El libro recomendado Manual Imprescindible de CorelDRAW

Todos los horarios son UTC+02:00




Cerrado Este tema está cerrado, no puede editar mensajes o enviar nuevas respuestas  [4 mensajes ] 
Autor Mensaje
Desconectado
MensajePublicado:Mié, 30 Mar 2011, 20:36 

País:España
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2023 ( versión 24.3 )
Hola amigos, quisiera saber si existe la opción de seleccionar un objeto que se repite en todas las páginas de un documento. El tema es que uso Corel muchas veces para editar PDF.. Y tengo un libro de 357 páginas con un mapa de bits en todas ellas y necesito eliminarlo. Y es más que engorroso seleccionar cada página, buscar el objeto y eliminarlo de a uno. Probé la función "buscar objetos" pero sólo busca en la página que se muestra actualmente. Si alguien tiene alguna ayuda se lo voy a agradecer. Un saludo desde Buenos Aires.


Arriba
   
Desconectado
MensajePublicado:Jue, 31 Mar 2011, 12:14 

País:United States
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2021 ( versión 23 )
Este pequeño macro elimina todos los bitmaps de todas las paginas:
Citar:
Sub deletebitmaps()

Dim sh As Shape, pg As Page

For Each pg In ActiveDocument.Pages
For Each sh In pg.Shapes
If sh.Type = cdrBitmapShape Then
sh.Delete
End If
Next sh
Next pg

End Sub


Arriba
   
Desconectado
MensajePublicado:Jue, 31 Mar 2011, 12:50 

País:España
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2023 ( versión 24.3 )
Citar:
Este pequeño macro elimina todos los bitmaps de todas las paginas:
Excelente! Mil gracias, Manuel! Se me ocurre algo, se podrá editar para que borre únicamente un bitmap de un nombre determinado? Especificando el nombre del bitmap sería posible? Muchas gracias por tu aporte..


Arriba
   
Desconectado
MensajePublicado:Jue, 31 Mar 2011, 22:11 

País:United States
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2021 ( versión 23 )
Citar:
Sub deletebitmaps()

Dim sh As Shape, pg As Page

For Each pg In ActiveDocument.Pages
For Each sh In pg.Shapes
If sh.Type = cdrBitmapShape And sh.Name = "nombredelbitmap" Then
sh.Delete
End If
Next sh
Next pg

End Sub
añade la parte que puse en negrita, la palabra nombredelbitmap la tienes que sustituir por el nombre real del bitmap conservando las comillas


Arriba
   
Mostrar mensajes previos: Ordenar por 
Cerrado Este tema está cerrado, no puede editar mensajes o enviar nuevas respuestas  [4 mensajes ] 

Todos los horarios son UTC+02:00


No puede abrir nuevos temas en este Foro
No puede responder a temas en este Foro
No puede editar sus mensajes en este Foro
No puede borrar sus mensajes en este Foro
No puede enviar adjuntos en este Foro

Buscar:
Ir a:  
Descarga Digital Licencia perpetua de CorelDRAW Graphics Suite para Windows y Mac

:: Corel-FORUM :: WWW.CORELCLUB.ORG ::

©1996-2025 Club Internacional de Usuarios de CorelDRAW - COREL-FORUM - El foro de ayuda entre usuarios de CorelDRAW en español, on-line desde 1996 - Corel is a registered trademark of Corel Corporation / Alludo

Desarrollado por phpBB® Forum Software © phpBB Limited
Traducción al español por phpBB España
Registrarse