Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / March 2008

Tip: Looking for answers? Try searching our database.

Data Labels for a chart in Excel

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
JohnJack - 19 Mar 2008 16:00 GMT
Hi,

I'm pretty good at using excel, and VBA macro, so I'm not a compelte
newbie.  But I am having issues trying to change/link the data labels
to a 3rd series of points.

I have download an excel sheet (that has no macros) that contans a XY
scatter plot.  It labels it's points with a 3rd series somehow but I
can't figure it out.  I know you can label each point with the y or x
data, and I know there is a add-in package to do this, but my company
is against using 3rd party add ins.  But why use an add-in package if
we don't need to?  It just seems microsoft has hidden this in there
manuals etc.

Does anyone know how to do this (without an add-in?).  Ie I have 3
columns of data. column 1 is the x data, column 2 is the y data, and
column 3 are to be the data labels for each point on the scatter plot.

Help?

Thanks in advance.

Jack
Bernie Deitrick - 19 Mar 2008 17:48 GMT
Jack,

Enter the desired labels in a range of cells (one for each data point - your third column), select
them, and then run a macro like the one below.

HTH,
Bernie
MS Excel MVP

Sub MacroLabels()

Dim i As Integer
Dim myL As Range

Set myL = Selection

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True
ActiveChart.SeriesCollection(1).DataLabels.Select
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
  ActiveChart.SeriesCollection(1).Points(i).DataLabel.Characters.Text = myL.Cells(i).Value
  ActiveChart.SeriesCollection(1).Points(i).DataLabel.Position = xlLabelPositionAbove
Next i
myL.Select
End Sub

> Hi,
>
[quoted text clipped - 19 lines]
>
> Jack
JohnJack - 19 Mar 2008 19:37 GMT
On Mar 19, 12:48 pm, "Bernie Deitrick" <deitbe @ consumer dot org>
wrote:
> Jack,
>
[quoted text clipped - 47 lines]
>
> > Jack

cheers..thanks

Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.