grafiektitel in goede opmaak zetten

[ronsom]

Goedemiddag allemaal,

Met de macrorecorder ben ik aardig op weg met het automatiseren van een bestand.
Het enige wat me niet lukt met opnemen is de maat van de grafiektitel op 8 krijgen.
De macrorecorder selecteert de titel wel maar wijzigt de afmeting niet.
Hoe kan ik dit oplossen.

Vriendelijke groet,

Ronsom

 

[VenA]

Beter is het om een voorbeeld bestandje te plaatsen met hoe de grafiek in elkaar zit. Grafiektitel op 8 is? De tekengrootte?

Probeer deze eens?

Sub VenA()
ActiveSheet.ChartObjects("Grafiek 1").Select
With ActiveChart.ChartTitle.Characters.Font
    .Size = 8
    .Color = vbRed
End With
End Sub

En anders maar even een bestandje plaatsen.