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
|Want to create a userform that looks like the image provided||10||44|
|Move entire row to another workbook based on cell value||20||46|
|Excel 2016 error could not load some objects because they are not available on this machine?||7||23|
|Copy/paste a range in one worksheet from the same row when a cell in an identified column changes from blank.||10||25|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!