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

Seccion de Programacion en VBA para Corel Draw
http://corelforum.corelclub.org/viewtopic.php?f=4&t=15592
Página 1 de 1

Autor:  marcelo tinte [ Lun, 20 Ene 2014, 19:27 ]
Asunto:  Seccion de Programacion en VBA para Corel Draw

En esta seccion se podra crear macros para automatizar trabajos en Corel Draw.

Muchas veces necesitamos hacer algo en corel que es muy repetitivo, por Ej. Diseñar una tarjeta de 8 x 5 - 4/4 para mandar a offset. Para ello estaria buevo una macros que lo genere y no miles de archivos en corel.

Otro Ej. seria tenemos que crear las lineas de corte de tarjetas, o crear una plantilla de corte de calcos. etc.

Para ello es necesario esta seccion.

Con ello espero que mucha gente pueda optimizar su forma de trabajo y perder un poco el miedo a esto de programar, ya que no es muy complicado.

Y para aquellas personas con experiencia en el tema, compartar un poco de su conocimiento, poninedo sus MACROS, como link de descarga, obviameNte en formato *.gms.

Muchas gracias por leer esto.

PD: Estare publicando lo que aprendi de programacion en VBA para Corel, Macros, Link, Videos, etc.

Autor:  marcelo tinte [ Lun, 20 Ene 2014, 21:14 ]
Asunto:  Re: Seccion de Programacion en VBA para Corel Draw

Estoy de nuevo este es una pequeña MACROS pero bastante util.

El Codigo es:

Sub TamañoObjeto()

If ActiveSelection.Shapes.Count = 0 Then Exit Sub

Dim unit As Long
Dim tUnit As String
Dim font As String
Dim fontSize As Single
Dim tSize As String
Dim precision As Long

Dim x As Double
Dim y As Double
Dim w As Double
Dim h As Double


unit = cdrMillimeter
tUnit = " mm"
font = "Arial"
fontSize = 24
precision = 1

ActiveDocument.unit = unit

ActiveSelection.GetBoundingBox x, y, w, h

tSize = Round(w, precision) & " x " & Round(h, precision) & tUnit

ActiveLayer.CreateArtisticText x, y - (1.6 * (fontSize / 4)), tSize, , , font, fontSize


End Sub

Le adjunto el archivo GMS. recuerden esta comprimidoen RAR, descomprimir e INSTALAR.

Saludos

PD: Para los que saben como instalarlo:
========================================
INSTALACION Y CONFIGURACION DE LA MACRO:
========================================
Copiar el archivo TamañoObjeto.gms pegarlo en la siguiente carpeta (en mi caso yo tengo Windows 8 y CorelDRAW X6 ) -----> C: Program Files (x86) -->CorelCorelDRAW Graphics SuiteX6 --> Draw --> GMS
Si tienen el corelDRAW abierto CERRAR EL PROGRAMA y volver a abrir. Por último para usar la MACRO en coreldrawX6 deberan ir a : Pestaña Herramientas --> Macros ---> Ejecutar Macro.

Adjuntos:
Comentario: Hasta la proxima
TamañoObjeto.rar [5.27 KiB]
Descargado 491 veces

Autor:  Ál Cal [ Lun, 27 Ene 2014, 19:01 ]
Asunto:  Re: Seccion de Programacion en VBA para Corel Draw

¿Qué es lo que hace exactamente este macro?

Página 1 de 1 Todos los horarios son UTC+01:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/