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

Andreas Hermle
Andreas Hermle used Ask the Experts™
on
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
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
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 leader

Author

Commented:
Hi Syed:

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

Regards, Andreas
Andreas HermleTeam leader

Author

Commented:
Hi ssagibh:

great job. Thank you very much! Works great.

Regards, Andreas

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial