Chart for each row of a worksheet

#1 05-29-2005, 08:05 AM

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

#2 05-29-2005, 11:05 AM

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 Where:=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 Where:=xlLocationAsNewSheet

End With

Dave Munday <thehappymundays@hotmail.com> wrote in message
news:eb8yR0DZFHA.1412@TK2MSFTNGP12.phx.gbl...
> 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
>
>

#3 05-30-2005, 05:05 AM

Many thanks, I will give this a try

Dave

"R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
news:uD96FKFZFHA.3280@TK2MSFTNGP09.phx.gbl...
> 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 Where:=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 Where:=xlLocationAsNewSheet
>
> End With
>
>
>
> Dave Munday <thehappymundays@hotmail.com> wrote in message
> news:eb8yR0DZFHA.1412@TK2MSFTNGP12.phx.gbl...
> > 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
> >
> >
>
>
>
>

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)