Macro Set still show total on top

[MarcoARaymundo]

Hi! does anyone know how?

[MarcoARaymundo · Accepted solution]

sub StillShowTotalOnTop_ON()

chartArray = Array("CH23","CH25")

For Each chart In chartArray

set chart = ActiveDocument.GetSheetObject(chart)

set chartP = chart.GetProperties

chartP.ChartProperties.ShowTotalWithInsideValues = true

chart.SetProperties chartP

Next

end sub

sub StillShowTotalOnTop_OFF()

chartArray = Array("CH23","CH25")

For Each chart In chartArray

set chart = ActiveDocument.GetSheetObject(chart)

set chartP = chart.GetProperties

chartP.ChartProperties.ShowTotalWithInsideValues = false

chart.SetProperties chartP

Next

end sub