:: Corel-FORUM :: WWW.CORELCLUB.ORG :: http://www.corelforum.corelclub.org/ |
|
Seccion de Programacion en VBA para Corel Draw http://www.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.
|
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+02:00 |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |