Change Datalabel brightness thru VBA

[Invisibleman]

Dear all,

For the charts, I can change the brightness on the bars and such in VBA. But I am also try to set the brightness on the datalabels in VBA. But this I can't find.

I did try multiple options;
DataLabels.Interior.Brightness
DataLabels.ForeColor.Brightness
DataLabels.Brightness
DataLabels.Format.Brightness

But none seem to work. Can anybody tell me, how to set the brightness for the data labels in the VBA?

Thanks in advance,
Hans

 

[DanteAmor]

I hope this is what you need:

Without Brightness

Wtih Brightness

Try:

Sub Chart_Brightness()
  Dim sh As Worksheet
  Dim co As ChartObject
'
  Set sh = ActiveSheet
  Set co = sh.ChartObjects("Chart1")
  
  With co.Chart.FullSeriesCollection(1).DataLabels.Format.Glow
    .Color.RGB = RGB(255, 255, 0)
    .Color.TintAndShade = 0
    .Color.Brightness = 0.00001
    .Transparency = 0.01
    .Radius = 10
  End With
End Sub

 

[Invisibleman]

I hope this is what you need:

Without Brightness

View attachment 118287​

Wtih Brightness

View attachment 118288​

Try:

Sub Chart_Brightness()
  Dim sh As Worksheet
  Dim co As ChartObject
'
  Set sh = ActiveSheet
  Set co = sh.ChartObjects("Chart1")
 
  With co.Chart.FullSeriesCollection(1).DataLabels.Format.Glow
    .Color.RGB = RGB(255, 255, 0)
    .Color.TintAndShade = 0
    .Color.Brightness = 0.00001
    .Transparency = 0.01
    .Radius = 10
  End With
End Sub

Hello Dantemore,

Thanks, but it seems this only will change the border brithness. But I want to change the interior brightness, as it also can be done in the bar like;

Chart_Overview1.ChartObjects(puFN - 6).Chart.SeriesCollection(priFN).Format.Fill.ForeColor.Brightness

or isn't it possible to have the brightness set this way to the interior color?

regards,
Hans

 

[DanteAmor]

or isn't it possible to have the brightness set this way to the interior color?

You can show a picture before and after putting on the brightness interior
And it also explains how you manually set that brightness interior.