Do You Know How Hackers Steal Your Credentials? Join us and Skyport Systems to learn how hackers steal your credentials and why Active Directory must be secure to stop them. Thursday, July 13, 2017 10:00 A.M. PDT
Course Of The Month
3 days, 9 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Add a term to all titles of all the charts on the active worksheet
Posted on 2012-12-29
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
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
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
2
3 Comments
Active today
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
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
Featured Post
![[Webinar] How Hackers Steal Your Credentials](https://filedb.experts-exchange.com/files/public/2017/5/20/3315d9d8-8110-4d52-be94-a5aacdd83e4b.png)
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Introduction
This Article briefly covers methods of calculating the NPV and IRR variants in Excel as well as the limitations in calculating and interpreting IRR results.
Paraphrasing Richard Shockley, author of my favourite finance reference tex…
Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Suggested Courses
Course of the Month3 days, 9 hours left to enroll
690 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.