Hello-

Is there any way to label individual points in an XY scatter with data from
ajdacent cells? For exampl, I have 3 columns with a name, an x value and a y
value. I want to plot points with the XY data and label each point with the
names from the first column. Seems simple but I can't figure it out

I use Rob Bovey's XY Chart Labeler when I want to do this.

http://www.appspro.com/Utilities/ChartLabeler.htm


"kbpratt" wrote in message
...
Hello-

Is there any way to label individual points in an XY scatter with data
from
ajdacent cells? For exampl, I have 3 columns with a name, an x value and a
y
value. I want to plot points with the XY data and label each point with
the
names from the first column. Seems simple but I can't figure it out

kbpratt,

In addition to Rob's XY Chart Labeler addin, you can also use the following
macro:

Sub AddLabels()
Dim RngLabels As Range
Dim Ser As Series
Dim i As Long
If TypeName(Selection) = "Series" Then
Set Ser = Selection
Set RngLabels = Application.InputBox(prompt:="Select the label
range:", Type:=8)
Ser.HasDataLabels = True
For i = 1 To Ser.Points.Count
Ser.Points(i).DataLabel.Text = RngLabels(i)
Next i
Else
MsgBox "Select a series in a chart."
End If
End Sub

In the dialog box, add the reference to the data source like "Sheet1!A1:A5".

----
Regards,
John Mansfield
http://www.pdbook.com


"kbpratt" wrote:

Hello-

Is there any way to label individual points in an XY scatter with data from
ajdacent cells? For exampl, I have 3 columns with a name, an x value and a y
value. I want to plot points with the XY data and label each point with the
names from the first column. Seems simple but I can't figure it out

John Mansfield
I'm interested in this matter and I tested your sugestion but it gives
Sintax Error
on this instruction: Set RngLabels = Application.InputBox(prompt:="Select
the label
range:", Type:=8)
Can it be because I'm workin with Portuguese version of MS EXcel 2003?
What can I do?
--
Arcindo RA Lucas


"John Mansfield" escreveu:

kbpratt,

In addition to Rob's XY Chart Labeler addin, you can also use the following
macro:

Sub AddLabels()
Dim RngLabels As Range
Dim Ser As Series
Dim i As Long
If TypeName(Selection) = "Series" Then
Set Ser = Selection
Set RngLabels = Application.InputBox(prompt:="Select the label
range:", Type:=8)
Ser.HasDataLabels = True
For i = 1 To Ser.Points.Count
Ser.Points(i).DataLabel.Text = RngLabels(i)
Next i
Else
MsgBox "Select a series in a chart."
End If
End Sub

In the dialog box, add the reference to the data source like "Sheet1!A1:A5".

----
Regards,
John Mansfield
http://www.pdbook.com


"kbpratt" wrote:

Hello-

Is there any way to label individual points in an XY scatter with data from
ajdacent cells? For exampl, I have 3 columns with a name, an x value and a y
value. I want to plot points with the XY data and label each point with the
names from the first column. Seems simple but I can't figure it out

John,
I have created the macro (which works beautifully) and want to know if the
following is possible:

For an x-y chart with the following points:

x y
A 1 5
B 2 10
C 3 12
D 4 30

Is it possible to get the data label for each point in the graph to read:
(for C, as an example)

C
3
12

Many thanks,
M John







"John Mansfield" wrote:

kbpratt,

In addition to Rob's XY Chart Labeler addin, you can also use the following
macro:

Sub AddLabels()
Dim RngLabels As Range
Dim Ser As Series
Dim i As Long
If TypeName(Selection) = "Series" Then
Set Ser = Selection
Set RngLabels = Application.InputBox(prompt:="Select the label
range:", Type:=8)
Ser.HasDataLabels = True
For i = 1 To Ser.Points.Count
Ser.Points(i).DataLabel.Text = RngLabels(i)
Next i
Else
MsgBox "Select a series in a chart."
End If
End Sub

In the dialog box, add the reference to the data source like "Sheet1!A1:A5".

----
Regards,
John Mansfield
http://www.pdbook.com


"kbpratt" wrote:

Hello-

Is there any way to label individual points in an XY scatter with data from
ajdacent cells? For exampl, I have 3 columns with a name, an x value and a y
value. I want to plot points with the XY data and label each point with the
names from the first column. Seems simple but I can't figure it out

In the next column, construct the text of the desired labels. An example
formula would be

=A2&CHAR(10)&B2&CHAR(10)&C2

where CHAR(10) is a carriage return. Use these constructed labels as the
data labels.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


"M John" wrote in message
...
John,
I have created the macro (which works beautifully) and want to know if the
following is possible:

For an x-y chart with the following points:

x y
A 1 5
B 2 10
C 3 12
D 4 30

Is it possible to get the data label for each point in the graph to read:
(for C, as an example)

C
3
12

Many thanks,
M John







"John Mansfield" wrote:

kbpratt,

In addition to Rob's XY Chart Labeler addin, you can also use the
following
macro:

Sub AddLabels()
Dim RngLabels As Range
Dim Ser As Series
Dim i As Long
If TypeName(Selection) = "Series" Then
Set Ser = Selection
Set RngLabels = Application.InputBox(prompt:="Select the label
range:", Type:=8)
Ser.HasDataLabels = True
For i = 1 To Ser.Points.Count
Ser.Points(i).DataLabel.Text = RngLabels(i)
Next i
Else
MsgBox "Select a series in a chart."
End If
End Sub

In the dialog box, add the reference to the data source like
"Sheet1!A1:A5".

----
Regards,
John Mansfield
http://www.pdbook.com


"kbpratt" wrote:

Hello-

Is there any way to label individual points in an XY scatter with data
from
ajdacent cells? For exampl, I have 3 columns with a name, an x value
and a y
value. I want to plot points with the XY data and label each point
with the
names from the first column. Seems simple but I can't figure it out

Works like a charm. Many thanks.

M John

"Jon Peltier" wrote:

In the next column, construct the text of the desired labels. An example
formula would be

=A2&CHAR(10)&B2&CHAR(10)&C2

where CHAR(10) is a carriage return. Use these constructed labels as the
data labels.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


"M John" wrote in message
...
John,
I have created the macro (which works beautifully) and want to know if the
following is possible:

For an x-y chart with the following points:

x y
A 1 5
B 2 10
C 3 12
D 4 30

Is it possible to get the data label for each point in the graph to read:
(for C, as an example)

C
3
12

Many thanks,
M John







"John Mansfield" wrote:

kbpratt,

In addition to Rob's XY Chart Labeler addin, you can also use the
following
macro:

Sub AddLabels()
Dim RngLabels As Range
Dim Ser As Series
Dim i As Long
If TypeName(Selection) = "Series" Then
Set Ser = Selection
Set RngLabels = Application.InputBox(prompt:="Select the label
range:", Type:=8)
Ser.HasDataLabels = True
For i = 1 To Ser.Points.Count
Ser.Points(i).DataLabel.Text = RngLabels(i)
Next i
Else
MsgBox "Select a series in a chart."
End If
End Sub

In the dialog box, add the reference to the data source like
"Sheet1!A1:A5".

----
Regards,
John Mansfield
http://www.pdbook.com


"kbpratt" wrote:

Hello-

Is there any way to label individual points in an XY scatter with data
from
ajdacent cells? For exampl, I have 3 columns with a name, an x value
and a y
value. I want to plot points with the XY data and label each point
with the
names from the first column. Seems simple but I can't figure it out

[Grego]

Is there any solution like this for labellin scatter graphs but for those
built with MS Graph in powerpoint instead? (I mean besides building it in
excel and then pasting in on the ppt slide)
many thanks.

"M John" wrote:

Works like a charm. Many thanks.

M John

"Jon Peltier" wrote:

In the next column, construct the text of the desired labels. An example
formula would be

=A2&CHAR(10)&B2&CHAR(10)&C2

where CHAR(10) is a carriage return. Use these constructed labels as the
data labels.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


"M John" wrote in message
...
John,
I have created the macro (which works beautifully) and want to know if the
following is possible:

For an x-y chart with the following points:

x y
A 1 5
B 2 10
C 3 12
D 4 30

Is it possible to get the data label for each point in the graph to read:
(for C, as an example)

C
3
12

Many thanks,
M John







"John Mansfield" wrote:

kbpratt,

In addition to Rob's XY Chart Labeler addin, you can also use the
following
macro:

Sub AddLabels()
Dim RngLabels As Range
Dim Ser As Series
Dim i As Long
If TypeName(Selection) = "Series" Then
Set Ser = Selection
Set RngLabels = Application.InputBox(prompt:="Select the label
range:", Type:=8)
Ser.HasDataLabels = True
For i = 1 To Ser.Points.Count
Ser.Points(i).DataLabel.Text = RngLabels(i)
Next i
Else
MsgBox "Select a series in a chart."
End If
End Sub

In the dialog box, add the reference to the data source like
"Sheet1!A1:A5".

----
Regards,
John Mansfield
http://www.pdbook.com


"kbpratt" wrote:

Hello-

Is there any way to label individual points in an XY scatter with data
from
ajdacent cells? For exampl, I have 3 columns with a name, an x value
and a y
value. I want to plot points with the XY data and label each point
with the
names from the first column. Seems simple but I can't figure it out

[Andy Pope]

Hi,

Not that I know of.
But I have some code in this example.
http://www.andypope.info/ngs/ng16.htm

Cheers
Andy

Grego wrote:
Is there any solution like this for labellin scatter graphs but for those
built with MS Graph in powerpoint instead? (I mean besides building it in
excel and then pasting in on the ppt slide)
many thanks.

"M John" wrote:


Works like a charm. Many thanks.

M John

"Jon Peltier" wrote:


In the next column, construct the text of the desired labels. An example
formula would be

=A2&CHAR(10)&B2&CHAR(10)&C2

where CHAR(10) is a carriage return. Use these constructed labels as the
data labels.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


"M John" wrote in message
...

John,
I have created the macro (which works beautifully) and want to know if the
following is possible:

For an x-y chart with the following points:

x y
A 1 5
B 2 10
C 3 12
D 4 30

Is it possible to get the data label for each point in the graph to read:
(for C, as an example)

C
3
12

Many thanks,
M John







"John Mansfield" wrote:


kbpratt,

In addition to Rob's XY Chart Labeler addin, you can also use the
following
macro:

Sub AddLabels()
Dim RngLabels As Range
Dim Ser As Series
Dim i As Long
If TypeName(Selection) = "Series" Then
Set Ser = Selection
Set RngLabels = Application.InputBox(prompt:="Select the label
range:", Type:=8)
Ser.HasDataLabels = True
For i = 1 To Ser.Points.Count
Ser.Points(i).DataLabel.Text = RngLabels(i)
Next i
Else
MsgBox "Select a series in a chart."
End If
End Sub

In the dialog box, add the reference to the data source like
"Sheet1!A1:A5".

----
Regards,
John Mansfield
http://www.pdbook.com


"kbpratt" wrote:


Hello-

Is there any way to label individual points in an XY scatter with data
from
ajdacent cells? For exampl, I have 3 columns with a name, an x value
and a y
value. I want to plot points with the XY data and label each point
with the
names from the first column. Seems simple but I can't figure it out

[rockhammer]

Hi John or whoever's monitoring this,

I'm trying to use this macro but every time I select the data series (or I
think I have selected the data series), TypeName(Selection) is returning
"ChartObject" and I get the msgbox every time. Indeed, every time the macro
exits, the chart is selected.

I have tried selecting the data series by right clicking on the dots of the
data series and have also tried selecting it via the drop down menu in the
chart toolbar. Same result.

Your help would be much appreciated. Thanks.

Patrick.


"John Mansfield" wrote:

kbpratt,

In addition to Rob's XY Chart Labeler addin, you can also use the following
macro:

Sub AddLabels()
Dim RngLabels As Range
Dim Ser As Series
Dim i As Long
If TypeName(Selection) = "Series" Then
Set Ser = Selection
Set RngLabels = Application.InputBox(prompt:="Select the label
range:", Type:=8)
Ser.HasDataLabels = True
For i = 1 To Ser.Points.Count
Ser.Points(i).DataLabel.Text = RngLabels(i)
Next i
Else
MsgBox "Select a series in a chart."
End If
End Sub

In the dialog box, add the reference to the data source like "Sheet1!A1:A5".

----
Regards,
John Mansfield
http://www.pdbook.com


"kbpratt" wrote:

Hello-

Is there any way to label individual points in an XY scatter with data from
ajdacent cells? For exampl, I have 3 columns with a name, an x value and a y
value. I want to plot points with the XY data and label each point with the
names from the first column. Seems simple but I can't figure it out