This example selects a forecast cell and then changes its forecast chart to show a mean line.
Range("B7").Select CB.ChartPrefsND cbChtMeanLine, True