Conversion EPS avec GFLax et VBScript
Posted: Tue Mar 13, 2012 3:36 pm
Bonjour,
Je cherche à convertir une image EPS en JPG en utilisant VBScript exclusivement.
Mon code fonctionne sans message d'erreur mais le résultat est une image en Noir & Blanc fortement dégradée.
En utilisant XNView directement cela fonctionne sans problème.
Une petite idée ?
Merci d'avance
Je cherche à convertir une image EPS en JPG en utilisant VBScript exclusivement.
Mon code fonctionne sans message d'erreur mais le résultat est une image en Noir & Blanc fortement dégradée.
En utilisant XNView directement cela fonctionne sans problème.
Une petite idée ?
Merci d'avance
Code: Select all
Option Explicit
Dim Photo
Set Photo=CreateObject("GflAx.GflAx")
Photo.LoadBitmap("C:\TEMP\TEST_EPS.EPS")
Photo.Resize 150, 150
Photo.SaveFormat=1 'JPEG
Photo.SaveBitmap("C:\TEMP\TEST_EPS.JPG")
Set Photo=Nothing