Series.ValueSortOrder (Word) ActiveDocument.Background.Chart.FullSeriesCollection(1).ValueSortOrder = xlValueAscending