У меня есть таблица Excel с четырьмя сводными таблицами, и у каждой есть связанная диаграмма. Используя VB.Net, я обновляю источник данных, который обновляет сводные таблицы, которые автоматически обновляют связанные с ними диаграммы. Все это прекрасно работает. Но теперь я должен обновить заголовок на каждом графике.
Я думаю, что мне нужно получить доступ к графикам, зная имя их связанной сводной таблицы.
Я попытался перебрать worksheet.pivotTables , чтобы получить каждое имя PivotTable, но при этом в строке For Each получена ошибка:
For Each xlPivotTable As Excel.PivotTable In xlWorkSheetShippedSQ.PivotTables
strCurrentPivotTable = xlPivotTable.Name
Next
В xlWorkSheetShippedSQ.PivotTables отображается
неявное преобразование из объекта в неисчислимое
и хочет, чтобы я использовал CType(xlWorkSheetShippedSQ.PivotTables, IEnumerable(Of Excel.PivotTable)), но когда я делаю это, я получаю исключение InvalidCastException. xlWorkSheetShippedSQ - это текущий рабочий лист, и я успешно использовал его в других местах.
Есть ли способ получить доступ к каждой диаграмме, чтобы изменить каждое имя? если да, пожалуйста, поделитесь, как?