Forum Discussion
Graph Chart title
i have some graphs in excel that happens to have title with diffirent placement than other graphs, in matters of official report it bothers me, is there a way to edit charts title and legend in numbers or using module? talking in bulk numbers for multiple graphs so manual editing is undesired.
Sub StandardizeChartsOnSheet()
Dim chtObj As ChartObject
Dim cht As Chart
For Each chtObj In ActiveSheet.ChartObjects
Set cht = chtObj.Chart
' Ensure there is a title
cht.HasTitle = True
' Standardize title position (adjust as needed)
With cht.ChartTitle
.Left = 10 ' distance from left edge of chart
.Top = 5 ' distance from top edge of chart
End With
' Standardize legend position
If cht.HasLegend Then
cht.Legend.Position = xlLegendPositionBottom
End If
Next chtObjEnd Sub
Try the above macro.
It will help you to standardize chart title and legend placement.
If this helped please feel free to mark it as a solution and give kudos 👍
1 Reply
Sub StandardizeChartsOnSheet()
Dim chtObj As ChartObject
Dim cht As Chart
For Each chtObj In ActiveSheet.ChartObjects
Set cht = chtObj.Chart
' Ensure there is a title
cht.HasTitle = True
' Standardize title position (adjust as needed)
With cht.ChartTitle
.Left = 10 ' distance from left edge of chart
.Top = 5 ' distance from top edge of chart
End With
' Standardize legend position
If cht.HasLegend Then
cht.Legend.Position = xlLegendPositionBottom
End If
Next chtObjEnd Sub
Try the above macro.
It will help you to standardize chart title and legend placement.
If this helped please feel free to mark it as a solution and give kudos 👍