:: Corel-FORUM :: WWW.CORELCLUB.ORG ::
http://www.corelforum.corelclub.org/

Linea de contorno
http://www.corelforum.corelclub.org/viewtopic.php?f=4&t=14534		 Página 1 de 1
Autor:  mois3s_mar1n [Sab, 27 Oct 2012, 18:33 ]
Asunto:  Linea de contorno
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!!
Autor:  F J L C [Vie, 02 Nov 2012, 22:41 ]
Asunto:  Re: Linea de contorno
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
Autor:  mois3s_mar1n [Lun, 05 Nov 2012, 20:53 ]
Asunto:  Re: Linea de contorno
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?
Autor:  F J L C [Lun, 05 Nov 2012, 22:39 ]
Asunto:  Re: Linea de contorno
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
Autor:  mois3s_mar1n [Mar, 06 Nov 2012, 04:59 ]
Asunto:  Re: Linea de contorno
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.
Autor:  F J L C [Mar, 06 Nov 2012, 09:48 ]
Asunto:  Re: Linea de contorno
Estamos para ayudarnos.
Un saludo.
Página 1 de 1 Todos los horarios son UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/