jcmm
Registrado: 03 Mar 2008 Mensajes: 2
| Publicado: 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 |
|