Добрый день!

Создаю программно сводную диаграмму на основе сводной таблицы. В качестве источника данных указываю TableRange2.

chartShape.Chart.SetSourceData Source:=PT.TableRange2

В сводной таблице три поля (ряда). Нужно построить сводную диаграмму из двух левых полей, то есть без третьего ряда.

строка chartShape.Chart.SeriesCollection(3).Delete не работает

Можно сделать так Source:=Range("'Лист1'!$F$1:$I$16"). Но каждый раз количество строк разные и координаты размещение сводной таблицы тоже разные.

Как это сделать?