Вопрос : Эксел:  Закреплять петлей через всю серию диаграммы всех диаграмм на рабочий лист

Мне нужно мочь закрепить петлеть через все мои диаграммы (без выбирать их) и доработать значение серии диаграммы.  Я не могу показаться, что получил на значении или свойстве xvalues серии.  Будут мной делая неправильно? специалисты

Thanks! class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:

class= reset_chartseries " id= " codeSnippet775530 Private Sub () Тусклый c как ChartObject Тусклый n как интежер Тусклый cs как SeriesCollection Для каждого c в rws.ChartObjects Установите c = rws.ChartObjects (c.Name) Для n = c.Chart.SeriesCollection.Count до 1 раздел -1 Установите cs = c.Chart.SeriesCollection Cs Debug.Print (n). Значения 'здесь будет где я сделаю если заявление 'если значение = «[0]» после этого xvalue = " сообщает! названный ряд " Затем Затем Подводная лодка конца

class=

Ответ : Эксел:  Закреплять петлей через всю серию диаграммы всех диаграмм на рабочий лист

Значения возвращают блок не предмет.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:

Приватные Sub reset_chartseries () Тусклый c как ChartObject Тусклый n как интежер Тусклый cs как SeriesCollection Тусклое varData Для каждого c в rws.ChartObjects Для каждого cs в c.Chart.SeriesCollection varData = cs. Значения Для n = lbound (vardata) к ubound (vardata) если varData (n) = 0 после этого 'сделайте Закончитесь если Следующий n следующий cs Следующий c Подводная лодка конца