Status: Solved
Priority: Medium
Security: Public
Views: 193
Last Modified: 2013-01-03

Add a term to all titles of all the charts on the active worksheet

Dear Experts:

I got more than 50 bar charts on the active worksheet (Excel 2010)

Is it possible by means of macro to alter the titles of these charts as follows:

- Go to the end of each title
- press Shift + Enter to enter a manual line break
- add the following term - New Grading System -

So, for example if one of the titles reads: 'Sales force Appraisal'
After running the macro it should read:

Sales force Appraisal
New Grading System

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

Andreas Hermle

Asked: 2012-12-29

Advertise Here

Microsoft Excel

1 Solution

LVL 43

Saqib Husain, SyedEngineerCommented: 2012-12-29

Sub chttitles()
For Each shp In ActiveSheet.Shapes
If shp.Type = 3 Then
shp.Chart.HasTitle = True
shp.Chart.ChartTitle.Text = shp.Chart.ChartTitle.Text & Chr(10) & "New grading system"
End If
Next shp
End Sub

Andreas HermleTeam leaderAuthor Commented: 2013-01-01

Hi Syed:

thank you very much for your great and professional help. Works like a charm.

Regards, Andreas

Andreas HermleTeam leaderAuthor Commented: 2013-01-03

Hi ssagibh:

great job. Thank you very much! Works great.

Regards, Andreas

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Add a term to all titles of all the charts on the active worksheet

Join & Write a Comment Already a member? Login.

Featured Post