How to Enable or Disable Chart Expressions using Macro

These macros can be used to enable/disable any chart expressions using macro.


sub Disable

set chart = ActiveDocument.GetSheetObject("CH01")
set cp = chart.GetProperties
set expr = cp.Expressions.Item(1).Item(0).Data.ExpressionData
expr.Enable = false 'disable Second expression
chart.SetProperties cp
end sub

sub Enable

set chart = ActiveDocument.GetSheetObject("CH01")
set cp = chart.GetProperties
set expr = cp.Expressions.Item(1).Item(0).Data.ExpressionData
expr.Enable = True 'enable Second expression
chart.SetProperties cp
end sub