1

Uso corel Draw y quiero crear un macro que permita de la seleccion actual hacer una copia justo debajo, despues en esa copia coger unicamente el texto y cambiarlo por cualquier otro texto, por ejemplo "nuevo texto". Cree mi codigo entre experimentos y con tutoriales por ahi, el codigo actual no me funciona porque dice que la linea "Set TextSelection = OrigSelection.CreateSelectionFromType(cdrArtisticTextShape)" es un objeto que no admite esta propiedad o metodo, asumo que el programa no entiende que es lo que necesito seleccionar.

Lo que creo que necesito es una linea de codigo que permita de la seleccion de la copia coger unicamente el texto y luego aplicarle la linea que cambia el texto.

Te agradezco si me puedes ayudar ;)

Aqui el codigo:

Sub CambiarTexto()
    ' Declara dos variables: "OrigSelection" y "dup1"
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim dup1 As ShapeRange
    Set dup1 = OrigSelection.Duplicate
    Dim TextSelection As ShapeRange

' Mueve la copia de la selección actual de formas (dup1) 0 unidades a la izquierda y la altura de la selección original hacia arriba
    dup1.Move 0#, -0.393701

' Crea una nueva selección de formas que incluye solo las formas de texto de la copia de la selección

    Set TextSelection = OrigSelection.CreateSelectionFromType(cdrArtisticTextShape)
' Cambia el contenido del texto de la primera forma de texto en la copia de la selección
dup1.Shapes(0).Text.Story.String = "Nuevo texto"
End Sub
3
  • Por favor, aclara tu problema específico o proporciona detalles adicionales para resaltar exactamente lo que necesitas. Tal como está escrito, es difícil saber exactamente qué estás preguntando.
    – Comunidad Bot
    Commented el 4 ene. 2023 a las 20:11
  • Hola, Bienvenid@ al Sitio, veo que eres nuev@ te recomendaria hacer el recorrido de bienvenida para que conoscas mejor el sitio, He mirado tu post y te comento lo siguiente:, Puedes leer este Articulo Cómo preguntar para que tu pregunta sea mejor recibida, Puedes leer este Articulo ejemplo mínimo verificable, También es importante que sepas que preguntas son mal vistas centro de ayuda. Commented el 4 ene. 2023 a las 20:53
  • @ArcanisGK507, crees que mi pregunta esta mal formulada? Commented el 5 ene. 2023 a las 4:13

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.