Graph macro question

  • Thread starter Thread starter Edwin Merced
  • Start date Start date
E

Edwin Merced

I Have a multiple graphs inside a worksheet. But need to have a macro that
will allow me to sleect a range inside the worksheet for each graph. How can
I assign with a macro the range for each graph?
 
Edwin,

The following line of code would set the source data for Chart 1 on the
active sheet to A2:B5

ActiveSheet.ChartObjects("Chart 1").Chart.SetSourceData
Source:=Sheets("Sheet1").Range("A2:B5")

Is that what you wanted?

If the chart is a separate sheet the code would be:

Charts("Chart1").SetSourceData Source:=Sheets("Sheet1").Range("A2:B5")

hth,

Doug
 
Lets say I have 1 graph but need a macro that will make a selection and
graph (exactly like the first graph) but with another range. Whats the macro
or code for that. How can I instruct with a macro which range to select in
order for it to graph?
 
Edwin,

I'm still not sure exactly what you want, and not sure I'd be able to answer
even if I was.

Have you tried turning on the macro recorder and then creating the graph
that you want? That could be a good way to start to answer your question.

hth,

Doug
 
Edwin -

Can you just copy the chart (I like to hold down Ctrl while dragging the
original), then right click on the new one, select Source Data from the
pop up menu, and select the Data Range with the mouse?

Of course you can always write a macro:

Sub CopyChartWithNewRange()
Dim rng As Range
ActiveSheet.Shapes(ActiveChart.Parent.Name).Duplicate.Select
On Error Resume Next
Set rng = Application.InputBox( _
Prompt:="Select a data range for the new chart.", Type:=8)
If Err.Number = 0 Then
ActiveChart.SetSourceData Source:=rng
End If
End Sub

- Jon
 
Back
Top