Toad World® Forums

Exporting Charts to Excel... how to graph them later?

Hi. I’m having big problems with something that might be very easy to do, although I tried (and searched how to do it) without success.
When I export AWR charts to Excel, I got them OK. I remove the ‘snapshot’ column and keep the ‘Date/Time’ as first one, and select it with any other column to insert a graphic chart into the worksheet.
My question is… how can I make Excel generate ONE CHART for each column, with ‘Date/Time’ as X axis? I tried some dynamic table/charts but it’s incredibly messy (it’s faster for me to create the charts one by one, manually!).

This might be an Excel-forum question, but since it’s a TOAD function I hope you know how to do it, helping other people with the same problem :slight_smile:

Thanks for your help.

fr3dy_953 wrote:

My question is… how can I make Excel generate ONE CHART for each column,
with ‘Date/Time’ as X axis? I tried some dynamic table/charts but
it’s incredibly messy (it’s faster for me to create the charts one
by one, manually!).

If you’re not stuck on Excel, perhaps a chart from FastReports from within
Toad may help:

http://asktoad.com/DWiki/doku.php/faq/answers/fastreports#how_can_i_use_fastreports_to_make_a_pie_chart_bar_chart_line_chart_or_some_other_kind_of_chart

(Note: this URL is scheduled to change in the near future!)

This might be an Excel-forum question, but since it’s a TOAD function I
hope you know how to do it, helping other people with the same problem :slight_smile:

And so you’re getting a Toad-centric reply. :slight_smile:

Hope this helps. Good luck!

Rich – [TeamT]

Disclaimer: Coming this fall “Rapture III” – This Time It’s Real.

Thanks for the tip, but what I want is to obtain AWR charts, sent to Excel from TOAD.
It seems that FastCharts are used from dataset grid results, so it’s not applicable.

No easy way to do that Excel operation? :frowning:

[ Attachment(s) from John Dorlon included below]

I turned the data in excel to a chart with just a few clicks. See attachment.

oops, you wanted one chart for each series. I don’t see a quick way to do
that, sorry. :frowning:

Hi. I achieved to do it, using a macro.
Thanks to Hector Miguel, from answers.microsoft.com for helping with this issue.

Sub Create_Graphs_x_Column()
Dim n As Byte
With Range(“a1”).CurrentRegion
With .Offset(1).Resize(.Rows.Count - 1)
For n = 2 To .Columns.Count
Union(.Columns(1), .Columns(n)).Select
SendKeys "{tab " & 5 + (Val(Application.Version) > 11) & "} "
Application.CommandBars.FindControl(ID:=436).Execute
ActiveChart.SeriesCollection(1).Name = .Columns(n).Offset(-1).Resize(1)
ActiveChart.ChartTitle.Text = .Columns(1).Offset(-1).Resize(1)
ActiveChart.ChartType = xlLine ’ This stands for 2D line graph, there are multiple styles to choose. You can use interactive mode by using “Application.Dialogs(xlDialogChartType).Show” instead.
Next: End With: End With
With ActiveSheet
For n = 1 To .ChartObjects.Count
.ChartObjects(n).Top = .Rows(16 + (n - 1) * 2).Top
.ChartObjects(n).Left = .Columns(2 + n - 1).Left
Next: End With
End Sub

Nice. Thanks for sharing!

  • John

On May 30, 2011, at 3:28 AM, “fr3dy_953” wrote:

Message from: fr3dy_953

Hi. I achieved to do it, using a macro.
Thanks to Hector Miguel, from answers.microsoft.com for helping with this
issue.

Sub Create_Graphs_x_Column()
Dim n As Byte
With Range("a1").CurrentRegion
With .Offset(1).Resize(.Rows.Count - 1)
For n = 2 To .Columns.Count
Union(.Columns(1), .Columns(n)).Select
SendKeys "{tab " & 5 + (Val(Application.Version) > 11)
& "} "
Application.CommandBars.FindControl(ID:=436).Execute
ActiveChart.SeriesCollection(1).Name = .Columns(n).Offset(-1).Resize(1)
ActiveChart.ChartTitle.Text = .Columns(1).Offset(-1).Resize(1)
ActiveChart.ChartType = xlLine ' This stands for 2D line graph, there are
multiple styles to choose. You can use interactive mode by using
"Application.Dialogs(xlDialogChartType).Show" instead.
Next: End With: End With
With ActiveSheet
For n = 1 To .ChartObjects.Count
.ChartObjects(n).Top = .Rows(16 + (n - 1) * 2).Top
.ChartObjects(n).Left = .Columns(2 + n - 1).Left
Next: End With
End Sub

Historical Messages

Author: fr3dy_953
Date: Mon May 30 01:51:04 PDT 2011
Hi. I achieved to do it, using a macro.
Thanks to Hector Miguel, from answers.microsoft.com for helping with this
issue.

Sub Create_Graphs_x_Column()
Dim n As Byte
With Range("a1").CurrentRegion
With .Offset(1).Resize(.Rows.Count - 1)
For n = 2 To .Columns.Count
Union(.Columns(1), .Columns(n)).Select
SendKeys "{tab " & 5 + (Val(Application.Version) > 11)
& "} "
Application.CommandBars.FindControl(ID:=436).Execute
ActiveChart.SeriesCollection(1).Name = .Columns(n).Offset(-1).Resize(1)
ActiveChart.ChartTitle.Text = .Columns(1).Offset(-1).Resize(1)
ActiveChart.ChartType = xlLine ' This stands for 2D line graph, there are
multiple styles to choose. You can use interactive mode by using
"Application.Dialogs(xlDialogChartType).Show" instead.
Next: End With: End With
With ActiveSheet
For n = 1 To .ChartObjects.Count
.ChartObjects(n).Top = .Rows(16 + (n - 1) * 2).Top
.ChartObjects(n).Left = .Columns(2 + n - 1).Left
Next: End With
End Sub

__

Author: John Dorlon
Date: Fri May 27 06:41:27 PDT 2011
oops, you wanted one chart for each series. I don’t see a quick way to do
that, sorry. :-(
__

Author: John Dorlon
Date: Fri May 27 06:35:56 PDT 2011
[ Attachment(s) from John Dorlon included below] I turned the data in excel
to a chart with just a few clicks. See attachment.
__

Author: fr3dy_953
Date: Thu May 26 23:44:38 PDT 2011

Thanks for the tip, but what I want is to obtain AWR charts, sent to Excel
from TOAD.
It seems that FastCharts are used from dataset grid results, so it's not
applicable.

No easy way to do that Excel operation? :(

__

Author: Rich Jesse
Date: Thu May 26 07:05:16 PDT 2011
fr3dy_953 wrote: > My question is.... how can I make Excel generate ONE
CHART for each column, > with 'Date/Time' as X axis? I tried some dynamic
table/charts but > it's incredibly messy (it's faster for me to create the
charts one > by one, manually!). If you're not stuck on Excel, perhaps a
chart from FastReports from within Toad may help:

http://asktoad.com/DWiki/doku.php/faq/answers/fastreports#how_can_i_use_fastreports_to_make_a_pie_chart_bar_chart_line_chart_or_some_other_kind_of_chart
(Note: this URL is scheduled to change in the near future!) > This might be
an Excel-forum question, but since it’s a TOAD function I > hope you know
how to do it, helping other people with the same problem :slight_smile: And so you’re
getting a Toad-centric reply. :slight_smile: Hope this helps. Good luck! Rich – [TeamT]
Disclaimer: Coming this fall “Rapture III” – This Time It’s Real™.
__

Author: fr3dy_953
Date: Thu May 26 03:00:31 PDT 2011

Hi. I'm having big problems with something that might be very easy to do,
although I tried (and searched how to do it) without success.
When I export AWR charts to Excel, I got them OK. I remove the 'snapshot'
column and keep the 'Date/Time' as first one, and select it with any other
column to insert a graphic chart into the worksheet.
My question is.... how can I make Excel generate ONE CHART for each column,
with 'Date/Time' as X axis? I tried some dynamic table/charts but it's
incredibly messy (it's faster for me to create the charts one by one,
manually!).

This might be an Excel-forum question, but since it's a TOAD function I hope
you know how to do it, helping other people with the same problem :)

Thanks for your help.

__
_______________________________________