Fecha actual Jue, 28 Mar 2024, 13:12

Todos los horarios son UTC+01:00




Cerrado  Este tema está cerrado, no puede editar mensajes o enviar nuevas respuestas  [ 3 mensajes ] 
Autor Mensaje
Desconectado
MensajePublicado: Lun, 20 Ene 2014, 19:27 

País: Argentina
Software de Corel que más utiliza: CorelDRAW Graphics Suite 2023 ( versión 24.3 )
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.


Arriba
   
Desconectado
MensajePublicado: Lun, 20 Ene 2014, 21:14 

País: Argentina
Software de Corel que más utiliza: CorelDRAW Graphics Suite 2023 ( versión 24.3 )
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
Arriba
   
Desconectado
MensajePublicado: Lun, 27 Ene 2014, 19:01 

País: España
Software de Corel que más utiliza: CorelDRAW Graphics Suite 2022 ( versión 24 )
¿Qué es lo que hace exactamente este macro?


Arriba
   
Mostrar mensajes previos:  Ordenar por  
Cerrado  Este tema está cerrado, no puede editar mensajes o enviar nuevas respuestas  [ 3 mensajes ] 

Todos los horarios son UTC+01: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:  

:: Corel-FORUM :: WWW.CORELCLUB.ORG ::

©1996-2024 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