Enlace Corel - VB
Publicado por Juan Carlos (4 intervenciones) el 13/03/2008 10:30:50
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. En concreto debo de importar un fichero tal como Grafico.eps y exportarlo como Grafico.plt. Esto es lo que estoy intentando pero me da 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
ActivePage.Layers("Dummy%Layer%Dummy%Layer").Activate
ActiveLayer.Name = "Dummy%Layer%Dummy%Layer"
Set impopt = New StructImportOptions
impopt.MaintainLayers = True
Set impflt = ActiveLayer.ImportEx("C:Gráfico1.eps", cdrPSInterpreted, impopt)
impflt.Finish
Set s1 = ActiveShape
ActiveLayer.Name = "Capa 1"
Set grp1 = s1.UngroupEx
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
Saludos
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
ActivePage.Layers("Dummy%Layer%Dummy%Layer").Activate
ActiveLayer.Name = "Dummy%Layer%Dummy%Layer"
Set impopt = New StructImportOptions
impopt.MaintainLayers = True
Set impflt = ActiveLayer.ImportEx("C:Gráfico1.eps", cdrPSInterpreted, impopt)
impflt.Finish
Set s1 = ActiveShape
ActiveLayer.Name = "Capa 1"
Set grp1 = s1.UngroupEx
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
Saludos
Valora esta pregunta


0