返回列表 上一主題 發帖

[發問] 請教兩個序列在一張圖表內的反轉問題

gnimnek168

帖子
9 
主題
2 
精華
0 
積分
18 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2011-12-12 
最後登錄
2013-9-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-4-16 21:24 | 只看該作者

[發問] 請教兩個序列在一張圖表內的反轉問題

我利用 Excel VBA 創建一個圖表，其內並有兩個序列 (series)物件。資料的來源係從每五分鐘間隔所紀錄的分時資料 (紀錄於儲存格，以列為每一筆單位)，紀錄的順序為最晚時間紀錄者排列在上。

序列1設定於主座標軸，反映的是籌碼量變化情形(利用堆積圖)；序列2設定於富座標軸，反映的是價格變化情形(折線圖)。X軸為時間、Y軸左側為價格；右側為籌碼數量。

關於主座標X軸的屬性設定如下：
  1.         
  2. With ActiveChart..Axes(xlCategory, xlPrimary)     '設定座標X軸(時間軸)的屬性
  3.             .ReversePlotOrder = True                    '反轉座標軸項目
  4.             .CategoryType = xlCategoryScale
  5.             .TickLabels.NumberFormatLocal = "hh:mm"     '顯示 時:分
  6.             .TickLabels.Orientation = 90                '標籤文字轉90度
  7.             .TickLabelPosition = xlTickLabelPositionLow '座標軸置於下方
  8. End With
複製代碼
這沒有問題，圖形也確實可以呈現籌碼量的反轉排列。但價格序列卻無法呈現反轉排列，也就是如 13:30 的價格排列在X軸最左方、09:00的價格排列在X軸最右方。

如果想要設定下列這樣的屬性：
  1.         '設定副座標X軸的屬性 (成交價)
  2.         With ActiveChart.Axes(xlCategory, xlSecondary)
  3.             .ReversePlotOrder = True                    '反轉座標軸項目
  4.         End With
複製代碼
執行卻會出現錯誤訊息：'Axes' 方法('_Chart' 物件)失敗。

請問該如何修改 VBA 程式碼或設定才能讓序列二的資料也能同步反轉？

P.S. 如法上傳圖表？
收藏 分享

gnimnek168

帖子
9 
主題
2 
精華
0 
積分
18 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2011-12-12 
最後登錄
2013-9-16 
2#
發表於 2013-4-17 00:42 | 只看該作者
回復 1# gnimnek168

總算找到答案了！ 自問自答一下：副座標X軸似乎不像Y軸一樣會自動產出該物件，所以必須透過  .HasAxis() 方法來設定，參考如下：
  1.         .HasAxis(xlCategory, xlSecondary) = True
  2.         With .Axes(xlCategory, xlSecondary)
  3.             .ReversePlotOrder = True                    '反轉座標軸項目
  4.         End With
複製代碼

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題