Skip to main content
4 de 4
se añadieron 10 caracteres en el cuerpo

Como seleccionar el texto artistico de la seleccion actual en VBA Corel?

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