Luig

Tr
mychart.Export Filename:="c:\" & mychart.charttitle.text & ".gif", FilterName:="gif
Ton

----- Luigi wrote: ----

I have problem with code Excel-vba: I have this cod

Private Sub make_Gif(
x = 2
For k = 1 To
Dim mychart As Char
Set mychart = Sheets("DATA").ChartObjects(k).Char
mychart.Export Filename:="c:\" & k & ".gif", FilterName:="gif
Next
End Su
This code is testing ok
This code VBA, Export 22 charts to gif file format , named with number k (1-22
c:\1.gi
c:\2.gi
c:\..
c:\22.gi
I want export this charts in c:\ChartTitle.Gi
c:\salesI.Gi
c:\salesII.Gi
c:\Integration.Gi
c:\......
ChartTitle=Title of Char



it's possible

Plese help m
Thank for all!

My e-mail: