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 |
Exporting Graph
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 wrote: 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, Microsoft MVP - Excel http://www.andypope.info |
Exporting Graph
WAHAEY!!!
Cheers Andy, works a treat. I hope my Boss appreciates all you guys help as much as I do. Ric "Andy Pope" wrote in message ... 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 wrote: 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, Microsoft MVP - Excel http://www.andypope.info |
All times are GMT +1. The time now is 06:09 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com