Modifying chart properties: changes the Legend font for all charts on the active sheet.
Sub LegendMod() Dim myChart As ChartObject
For Each myChart In ActiveSheet.ChartObjects
With myChart.Chart.Legend.font
.name = "Calibri"
.FontStyle = "Bold"
.Size = 12 End With
Next myChart End Sub