Chart for each row of a worksheet
 

I hope sombody can help with a task I am working on for a colleague at work,
we would like to produce a chart for each row in a worksheet,

we do no know how many rows there will be , each row does have a given
length

an example of the data looks like this

Name Data

A B C D E

Dave Munday 7G 1 2 3 5 4 1 4 4 3 2 5 1 2 5 1 ..... 23 45 12 11 10



For each row as described above we would like to plot the values 23 45 12
11 10 against A B C D E and use Dave Munday 7G as the graph label


I hope I have explained myself enough

thanks for anytime you can spare to help with this issue

try this sub

suppose your data is in A1 to E5. change this to suit you
the chart will be in a separate chart sheet. if you want it embedded in the
data sheet (e.g. sheet1)
change <ActiveChart.Location Whe=xlLocationAsObject, Name:="Sheet1"
make other changes if necessary

Public Sub test()
Range("A1:E5").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E5"),
PlotBy:= xlRows
ActiveChart.Location Whe=xlLocationAsNewSheet

End With



Dave Munday wrote in message
...
I hope sombody can help with a task I am working on for a colleague at
work,
we would like to produce a chart for each row in a worksheet,

we do no know how many rows there will be , each row does have a given
length

an example of the data looks like this

Name Data

A B C D E

Dave Munday 7G 1 2 3 5 4 1 4 4 3 2 5 1 2 5 1 ..... 23 45 12 11 10



For each row as described above we would like to plot the values 23 45 12
11 10 against A B C D E and use Dave Munday 7G as the graph label


I hope I have explained myself enough

thanks for anytime you can spare to help with this issue

Many thanks, I will give this a try

Dave



"R.VENKATARAMAN" wrote in message
...
try this sub

suppose your data is in A1 to E5. change this to suit you
the chart will be in a separate chart sheet. if you want it embedded in
the
data sheet (e.g. sheet1)
change <ActiveChart.Location Whe=xlLocationAsObject, Name:="Sheet1"
make other changes if necessary

Public Sub test()
Range("A1:E5").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E5"),
PlotBy:= xlRows
ActiveChart.Location Whe=xlLocationAsNewSheet

End With



Dave Munday wrote in message
...
I hope sombody can help with a task I am working on for a colleague at
work,
we would like to produce a chart for each row in a worksheet,

we do no know how many rows there will be , each row does have a given
length

an example of the data looks like this

Name Data

A B C D E

Dave Munday 7G 1 2 3 5 4 1 4 4 3 2 5 1 2 5 1 ..... 23 45 12 11 10



For each row as described above we would like to plot the values 23 45
12
11 10 against A B C D E and use Dave Munday 7G as the graph label


I hope I have explained myself enough

thanks for anytime you can spare to help with this issue