#pivot-table #pivot-chart
Вопрос:
У меня есть сводная таблица с именем «AccessMoviePivot» и диаграмма, чтобы я мог устанавливать данные диаграмм в поля и значения строк сводной таблицы.Я могу установить значения x для totablerange1.rows, но я не могу найти какое-либо такое свойство значений tablerange1 для series.values. Как мы можем установить значение sourcedata в tablerange1, но как это сделать вручную, как в этом коде поля, которые я хочу добавить в сводную диаграмму?.
Sub ex() Dim ch As Chart Dim s As Series Dim pt As PivotTable Set ch = Sheet5.ChartObjects(1).Chart Shapes.AddChart(XlChartType.xl3DColumnClustered, Range("Z27").Left, Range("Z27").Top, 400, 200).Chart Set s = ch.SeriesCollection.NewSeries Set pt = Sheet5.PivotTables("AccessMoviePivot") s.XValues = pt.TableRange1.Rows 's.Values= tablerange.....? End Sub