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.

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.

¿Qué es lo que hace exactamente este macro?