Fecha actual Mié, 25 Jun 2025, 21: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  [6 mensajes ] 
Autor Mensaje
Desconectado
MensajePublicado:Sab, 27 Oct 2012, 18:33 

País:Mexico
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2022 ( versión 24 )
Desde que uso corel draw (desde la version 8 hasta hoy que uso la X5), la combinacion Ctrl + flecha arriba / flecha abajo, incrementa o reduce por un punto el tamaño del texto que tenga seleccionado... existe alguna forma o alguna combinacion de teclas para hacer lo mismo con la LINEA DE CONTORNO? o sea, engrozar o adelgazar la linea sin tener que usar menus o dockers?, solo usar teclas?..... De antemano gracias!!


Arriba
   
Desconectado
MensajePublicado:Vie, 02 Nov 2012, 22:41 

País:España
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2021 ( versión 23 )
Ubicación:Granada
Hola, si sabes utilizar las macros copia esta y luego le asignas una combinación a cada una.

Sub contorno_mas()

ActiveDocument.Unit = cdrMillimeter
Dim sh As Shape, cont As Double
Set sh = ActiveShape

If sh.Outline.Width = cdrNoOutlines Then
sh.Outline.Width = 0.03
Else
cont = sh.Outline.Width
cont = cont + 0.5
sh.Outline.Width = cont
End If

End Sub

Sub contorno_menos()

On Error Resume Next
ActiveDocument.Unit = cdrMillimeter
Dim sh As Shape, cont As Double
Set sh = ActiveShape

cont = sh.Outline.Width
cont = cont - 0.5
sh.Outline.Width = cont

End Sub


Arriba
   
Desconectado
MensajePublicado:Lun, 05 Nov 2012, 20:53 

País:Mexico
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2022 ( versión 24 )
GRACIAS MUCHAS GRACIAS!!! FUNCIONA DE MARAVILLA.... Solo tengo una pregunta: que es lo que le debo cambiar a ese codigo para que las unidades sean PUNTOS en lugar de MILIMETROS y para que incremente/disminuya 1 punto a la vez?


Arriba
   
Desconectado
MensajePublicado:Lun, 05 Nov 2012, 22:39 

País:España
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2021 ( versión 23 )
Ubicación:Granada
Sub contorno_mas()

ActiveDocument.Unit = cdrPoint 'determina la unidad de medida
Dim sh As Shape, cont As Double
Set sh = ActiveShape

If sh.Outline.Width = cdrNoOutlines Then
sh.Outline.Width = 0.03
Else
cont = sh.Outline.Width
cont = cont + 0.5 'este valor es el que aumenta el contorno
sh.Outline.Width = cont
End If

End Sub

Sub contorno_menos()

On Error Resume Next
ActiveDocument.Unit = cdrPoint
Dim sh As Shape, cont As Double
Set sh = ActiveShape

cont = sh.Outline.Width
cont = cont - 0.5 'este valor es el que disminuye el contorno
sh.Outline.Width = cont

End Sub

Un saludo


Arriba
   
Desconectado
MensajePublicado:Mar, 06 Nov 2012, 04:59 

País:Mexico
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2022 ( versión 24 )
DOBLES GRACIAS!!!! Te agradezco mucho tu tiempo y tus respuestas, CREEME que me va a ahorrar muchisimo tiempo!! TE DEBO UNA AMIGO.

Saludos desde Mexico.


Arriba
   
Desconectado
MensajePublicado:Mar, 06 Nov 2012, 09:48 

País:España
Software de Corel que más utiliza:CorelDRAW Graphics Suite 2021 ( versión 23 )
Ubicación:Granada
Estamos para ayudarnos.
Un saludo.


Arriba
   
Mostrar mensajes previos: Ordenar por 
Cerrado Este tema está cerrado, no puede editar mensajes o enviar nuevas respuestas  [6 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