用橫線創建圖表

我有一張工作表，其中有一個數據透視表。從數據透視表中，我正在生成圖表。我的工作表分別由兩個數據透視表和兩個圖表組成。用橫線創建圖表

從數據透視表中，從我的列字段「目標」中，我想繪製一個水平線的值。有人能幫助我，我怎麼能提到範圍併爲我的專欄目標畫一條水平線。我通過網絡搜索，我找不到數據透視表的範圍。

而且，我得到一個自動化錯誤在我的源數據線

.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

來源

2017-09-21 Jenny

你能提供您的工作表的屏幕打印，以及您希望它看起來如何？ – Zac

當然我會提供現在 – Jenny

@Zac我添加了截圖供您參考。 – Jenny

這是如何解決它：

.SetSourceData Source:=pt 
.ChartType = xlColumnStacked

:=時，當您指定傳遞參數的名稱。在這種情況下，參數的名稱是Source

來源

2017-09-21 08:42:11 Vityata

謝謝。我的自動化錯誤已解決。但我怎麼能添加一條水平線＃ – Jenny

它也可以是靜態的。因爲我的目標是每次8％ – Jenny

參考：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窗口

這會給你一條線在數據透視圖

來源

2017-09-21 12:34:21 Zac

用橫線創建圖表

回答

相關問題