×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Macro to Rewrite Legend Lables

Macro to Rewrite Legend Lables

Macro to Rewrite Legend Lables

(OP)
I'm trying to figure out a way of changing the Series labels in a given chart (the lables located in the legend) using a macro. What I want to do is replace them with information (names) located within a particular set of cells. Does anyone know how I can access the names values of the legend elements?

RE: Macro to Rewrite Legend Lables

I assume the following
1. The name of the series you want to import datalabel labels for is "MySeries"
2. The labels you want to put for the points is in a col. and the first cell of this range is named 'Lbl1'
3. The Chart is an embedded chart in the active sheet with name "MyChart".

You'd need to use the following code:

Dim Ser as Series
ActiveSheet.ChartObjects("MyChart").Activate
Set Ser=ActiveChart.Series("MySeries")
For n = 1 to Ser.Points.Count
  With Ser.Points(n)
    .HasDatalabel = True
    .DataLabel.Text= Range("Lbl1").cells(n,1)
  End with
Next n

This was written extempore - so u may have to tweak it some to get the correct usage of the methods/properties - but the meat of the logic is there all right.

GOOD LUCK

 


RE: Macro to Rewrite Legend Lables

(OP)
Thanks for your help. It's not actually what I needed, but it gave me some good ideas. What I'm really looking for is a way to change the names in the legend. That way, instead of saying "SeriesX" it'll have the appropriate label (but only in the legend).

RE: Macro to Rewrite Legend Lables

Sorry, I got it wrong... Be back soon.

RE: Macro to Rewrite Legend Lables

(OP)
Thanks, Mala, you're a lifesaver. I figrued it out. What I wanted was the value in:

     ActiveChart.SeriesCollection(x).Name

Using that, I was able to change the names of the legend elements to whatever I wanted using a simple assignment command.

Ex: ActiveChart.SeriesCollection(2).Name = "Time Cost"

Using a simple FOR loop, I'm able to change the names now. Where you could still help, though... Now I need a way to find out how many Legend items there are. Anyone know of a Count method for this?

RE: Macro to Rewrite Legend Lables

Logius, I went thru all the help available and came up dry - there's no direct way you can change the legend text for any series. The legend txt for any series CANNOT be anything other than the SeriesName.

So, u're right - just name each series according to the name u want to see in the Legend entry...

I share with you the joy of your discovery.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members! Already a Member? Login


Resources

eBook - Manufacturing the Cars of Tomorrow
In this ebook, we'll explore how additive manufacturing is going to transform the way cars are made. This includes commentary from thought leaders such as Ford's CTO, Ken Washington, Customer case studies of ways 3D printing is being used today, and a variety of part examples where 3D printing is already impacting how automobiles are made. Download Now
White Paper - Smart Manufacturing for Semiconductor
New technologies and approaches present great opportunities for semiconductor manufacturers to achieve high levels of innovation, yield and improvement. This white paper explores some of these cutting-edge technologies and how they can be applied effectively in the semiconductor industry. Read about how Smart Manufacturing is transforming the semiconductor industry. Download Now
White Paper - Analysis and Simulation in Aircraft Structure Certification
Organizations using simulation and analysis tools effectively see the benefits in their ability to achieve certification faster and with drastically less total cost than those who do not maximize these tools. Read this White Paper to learn about how digital tools such as analysis and simulation help in aircraft structure certification. Download Now

Close Box

Join Eng-Tips® Today!

Join your peers on the Internet's largest technical engineering professional community.
It's easy to join and it's free.

Here's Why Members Love Eng-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close