Thread: Exporting Graph
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ric ric is offline
external usenet poster
 
Posts: 11
Default Exporting Graph

Hi again,

I'm having a problem exporting a graph to a defined location.

Sub cumulative_data()

Sheets("cum_data").Select
Start = 2
t1 = Sheets("cum_data").Cells(Start, 1).Value
t2 = Sheets("cum_data").Cells(Start, 2).Value
TheTitle = t2 & " " & "-" & " " & t1
Set MyRange = Range("C1:AM5")
MyRange.Select
Fname = "C:\" & t2 & _" & "cum" & ".gif"

Call Cum_data_graph

End Sub
Sub Cum_data_graph()
'
' This macro makes a line graph
'
<Snip bit that works that generates the graph

<heres the problem line
ActiveChart.Export Filename:=Fname, FilterName:="GIF"

Fname is defined in Sub cumulative_data() and stepping through code it
returns "C:\29H111_cum.gif" which is correct.

Now I was calling the graph at work in a different manner "Call
W075_Spend("C1:AM5", "Project Short Term Overall", "C:\overall.gif")" which
worked fine.

The problem seems to come from trying to define Fname in Sub
cumulative_data() and having it read it in Cum_data_graph().

Ric