/
Inicio :: Foros

 F.A.Q.F.A.Q.                  Conéctese para revisar sus mensajesConéctese para revisar sus mensajes   

Enlace Corel con VB

 
      Índice del Foro elrincondelc.com -> Visual Basic
Ver tema anterior :: Ver siguiente tema  
AutorMensaje
jcmm



Registrado: 03 Mar 2008
Mensajes: 2

MensajePublicado: 03/03/2008 9:17 am
Título: Enlace Corel con VB

Buenos días a todos, quisiera saber si desde el VB se puede cargar un fichero en Corel y acto seguido exportarlo o guardarlo con otra extensión.
Un ejemplo seria importar un archivo Grafico1.eps y exportarlo como Grafico1.plt.
He intentado lo siguiente, pero me dan varios errores:

Dim s1 As Shape
Dim impflt As ImportFilter
Dim impopt As StructImportOptions
Dim grp1 As ShapeRange
Dim doc1 As Document
Dim expflt As ExportFilter
Dim expopt As StructExportOptions

ActiveDocument.Pages(1).Activate 'Error de Automatización (Error 440) Documento no encontrado
ActivePage.Layers("Dummy%Layer%Dummy%Layer").Activate 'Error de Automatización (Error 440) Capa fuera de rango
ActiveLayer.Name = "Dummy%Layer%Dummy%Layer" ''Error de Automatización (Error 440) Documento no encontrado
Set impopt = New StructImportOptions
impopt.MaintainLayers = True
Set impflt = ActiveLayer.ImportEx("C:\Gráfico1.eps", cdrPSInterpreted, impopt) ''Error de Automatización (Error 440) Documento no encontrado
impflt.Finish 'La variable de objeto o la variable de bloque With no está establecida (Error 91)
Set s1 = ActiveShape
ActiveLayer.Name = "Capa 1" 'Error de Automatización (Error 440) Documento no encontrado
Set grp1 = s1.UngroupEx 'No se encontró el método o el dato miembro (Error 461)
Set doc1 = OpenDocument("C:\Gráfico1.eps")
Set expopt = New StructExportOptions
expopt.UseColorProfile = False
Set expflt = doc1.ExportEx("C:\Gráfico1.plt", cdrHPGL, cdrAllPages, expopt)
expflt.Finish
doc1.Close

Gracias y un saludo
_________________
Salod@s a todos
Volver arriba
      Índice del Foro elrincondelc.com -> Visual Basic
Página 1 de 1Todas las horas están en GMT - 8 Horas

 
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas

(c) ElRincondelC.com

Un proyecto de UrlanHeat.com