- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
對不起！ 上附的檔案是 OK 的，只是我想解開我在處理上的一些疑惑，所以將此篇分享同時
改成發問， 一舉雙得 (一魚兩吃)。
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
.SetSourceData Source:=Range("工作表1!$B$1:工作表1!$B$" & totalRows & ", 工作表1!$C$1:工作表1!$F$" & totalRows)
.ChartType = xlStockOHLC
With .ChartGroups(1)
.AxisGroup = 1
.
.
.
End With
.SeriesCollection.Add Source:=Range("工作表1!$G$2:工作表1!$I$" & totalRows)
With .SeriesCollection(5) ' 成交量
.AxisGroup = 2
.Name = "=工作表1!$G$1"
.ChartType = xlColumnClustered
.
.
.
End With
以上程式碼運作都 OK， 但是如果我把成交量的部分用下列方式表達，卻會出現錯誤訊息。
With .ChartGroups(2)
.AxisGroup = 2
.
.
End With
難道 .SeriesCollection.Add Source:=Range("工作表1!$G$2:工作表1!$I$" & totalRows) 之宣告，
不就是第二組 (Group 2) 嗎？
而且如果 With .SeriesCollection(6) 以及 With .SeriesCollection(7) 內都一併加上 .AxisGroup = 2
也會有錯誤訊息，那會是甚麼情況？ 語法不正確、或是有語法限制？
我發現只要是股票圖加上其它圖表的組合比較會有難度。
謝謝指導！ |
|
發表於 2012-5-7 12:05
| 