In grafiek font, fontgrootte en fontkleur van een datalabel aanpassen

[ML71]

Ik ben bezig met het automatisch genereren van grafieken en in het proces maak ik in het laatste stadium een datalabel voor het laatste datapunt. Ik wil dit datalabel echter het font 'verdana' in puntgrootte '10' en rgb kleur (0,51,102) meegeven. Ik krijg dit echter niet voor elkaar.

Ik had de onderstaande code hiervoor bedacht, maar dit wordt geweigerd. Iemand een idee hoe ik dit wel voor elkaar krijg?

p=108
With Application
 For Each Chrt In ActiveSheet.ChartObjects
  strName = Chrt.Name
  strFile = strName & ".png"
  Chrt.Activate
  For s = 1 To 4
   With ActiveChart.SeriesCollection(s).Points(p).DataLabel
     .Font = "verdana"
     .FontSize = 10
     .Font.Color.RGB = RGB(0, 51, 102)
   End With
  Next
 Next
End With

 

[MDN111]

Dag ML71 !

Probeer deze eens:

p = 108
With Application
 For Each Chrt In ActiveSheet.ChartObjects
  strName = Chrt.Name
  strFile = strName & ".png"
  Chrt.Activate
  For s = 1 To 4
   With ActiveChart.SeriesCollection(s).Points(p).DataLabel.[COLOR="#FF0000"]Font[/COLOR]
     [COLOR="#FF0000"].Name = "verdana"
     .Size = 10
     .Color = RGB(0, 51, 102)[/COLOR]
   End With
  Next
 Next
End With

Grtz,
MDN111

 

[ML71]

Hoi MDN111 dit werkt inderdaad. Thanks.