Graph Chart title

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 👍