Graph Chart title

[Abdulrahim-tu]

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.

[MattiaFratello · Accepted solution]

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 chtObj

End 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 👍