Graphs to eps image
 

Hi

I'm trying to find a quick way of getting a graph into an image. Probably
part of the problem is my ignorance of different image formats. Anyway, for
a latex project apparently .eps is the way to go. However, it's a bit of a
pain printing it to a file, and also formating etc is sometimes changed.

I found a very easy way to get an active chart to become a .gif file (code
below. Sheet1!B3 contains a subdirectory for the file to go into). This
works very well, but I'd have to change it to a .eps. Is there some way to
do this in one step without going through the print to file rigmarole.

The issue is that there's loads of graphs in loads of files in loads of
directories that all need to be converted into .eps in a single directory.
Having the file with the below code in does everything except it converts
into .gif.

Thanks

Glenton


Sub GraphToImage()

Set CurrentChart = ActiveChart

MyPath = ThisWorkbook.Sheets("Sheet1").Range("b3")
MyFile = InputBox("File name")

If Right(MyFile, 3) = "gif" Then
Fname = ThisWorkbook.Path & MyPath & MyFile
Else
Fname = ThisWorkbook.Path & MyPath & MyFile & ".gif"
End If

CurrentChart.Export Filename:=Fname, FilterName:="GIF"

End Sub