用水平线创build图表

我有一个表，我有一个数据透视表。 从数据透视表中，我正在生成图表。 我的工作表分别由两个数据透视表和两个图表组成。

从数据透视表中，从我的列字段“目标”，我想绘制一个水平线的价值。 有人能帮助我，我怎么能提到范围，并为我的专栏目标绘制一条水平线。 我通过networkingsearch，我找不到数据透视表的范围。

此外，我在我的源数据在行中出现自动化错误

.SetSourceData pt

下面是我用来从数据透视表生成我的图表的代码

 Sub chart() Dim cht As Chart Dim stable As PivotTable Dim pt, sh If ActiveSheet.PivotTables.count = 0 Then Exit Sub Set stable = ActiveSheet.PivotTables(2) Set pt = stable.TableRange1 Set sh = ActiveSheet.ChartObjects.Add(Left:=250, _ Width:=400, Top:=20, Height:=250) sh.Select Set cht = ActiveChart With cht .SetSourceData pt .ChartType = xlColumnStacked End With cht.FullSeriesCollection(1).Name = "Average of Red" cht.SeriesCollection(1).HasDataLabels = True cht.SeriesCollection(2).HasDataLabels = True cht.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 255, 0) cht.SeriesCollection(2).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) cht.HasTitle = True cht.ChartTitle.Text = " Result 2017" End Sub 

Answer 1

这是如何解决它：

 .SetSourceData Source:=pt .ChartType = xlColumnStacked 

:=在您指定传递的参数的名称时使用。 在这种情况下，参数的名字是Source

Answer 2

参考： https ： //support.office.com/en-gb/article/Create-a-PivotChart-c1b1e057-6990-4c38-b52b-8255538e7b1c
按着这些次序：

• 点击数据透视表上的任何地方，以显示function区中的数据透视表菜单项
• 单击function区中的Analyze选项卡
• 现在点击PivotChart
• 这将打开“ Insert Chart窗口。 select你想要的图表types，然后单击OKbutton。 这将创build图表
• 从图表中，点击要显示的系列，然后右键点击它
• 从显示的菜单中，selectChange Series Chart Type...选项。 这将打开Change Chart Type窗口
• 系列列在窗口的右下angular。 每个系列都有一个下拉框。 点击要更改的系列旁边的下拉菜单，然后selectLine图types
• 单击OKbuttonclosuresChange Chart Type窗口

这将在您的透视图中给你一条线