Exporting Graph

[ric]

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

 

[Andy Pope]

Hi ric,

You are correct, the scope of the variable means that although Fname is
correct in the cumulative_data routine it is an empty variable in the
Cum_data_graph routine.

You need to pass the variable like this,

Call Cum_data_graph(Fname)

and the Cum_data_graph routine need to be modified to accept an argument
like this,

Sub Cum_data_graph(Fname)

You might want to add the code,
Option Explicit

as the first line in your code module. This will require you to declare
all variables before the code will run.

Cheers
Andy

 

[ric]

WAHAEY!!!

Cheers Andy, works a treat. I hope my Boss appreciates all you guys help as
much as I do.

Ric