用水平线创建图表

Question

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

从数据透视表中，从我的列字段“目标”中，我想在值上画一条水平线。有人可以帮助我，我如何提及范围并为我的列字段目标绘制一条水平线。我通过网络搜索，找不到提及数据透视表的范围。

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

.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

参考：https://support.office.com/en-gb/article/Create-a-PivotChart-c1b1e057-6990-4c38-b52b-8255538e7b1c
请按以下步骤操作：

• 单击数据透视表上的任意位置以在功能区中显示数据透视表菜单项
• 单击功能区中的Analyze 选项卡
• 现在点击PivotChart
• 这将打开Insert Chart 窗口。选择您想要的图表类型，然后单击OK 按钮。这将创建图表
• 在图表中，单击要显示为线的系列并右键单击它
• 从显示的菜单中选择Change Series Chart Type... 选项。这将打开Change Chart Type 窗口
• 系列列在窗口的右下方。对于每个系列，都有一个下拉框。点击您要更改的系列旁边的下拉菜单，然后选择Line 图表类型
• 点击OK按钮关闭Change Chart Type窗口

这将在您的数据透视图中为您提供一条线

Answer 2

解决方法如下：

.SetSourceData Source:=pt
.ChartType = xlColumnStacked

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