Re,
Est-ce que le changement est le même pour tous les graphiques ? C'est-à-dire changer reading par writing ?
Si ce n'est pas le cas, tu peux au moins utiliser la macro suivante pour mettre les titres de tous les graphiques d'une feuille à la même taille de police (10) :
Sub TitleChartMod()
Dim chrt As ChartObject
For Each chrt In ActiveSheet.ChartObjects
chrt.Chart.ChartTitle.Font.Size = 10
Next chrt
End Sub
Si tu veux le faire pour toutes les feuilles du classeur :
Sub TitleChartModAll()
Dim chrt As ChartObject, sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
For Each chrt In sht.ChartObjects
chrt.Chart.ChartTitle.Font.Size = 10
Next chrt
Next sht
End Sub