返回列表 上一主題 發帖

[發問] 請問雙Y軸的tick圖形，每天都依據一個變數當成零的起始點畫圖

yystone

帖子
2 
主題
1 
精華
0 
積分
11 
點名
0  
作業系統
win 7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
女 
來自
高雄 
註冊時間
2010-11-13 
最後登錄
2015-3-13 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-25 23:30 | 只看該作者

[發問] 請問雙Y軸的tick圖形，每天都依據一個變數當成零的起始點畫圖

如下圖的圖形，左邊Y軸是台指價格(白色實線)，右邊多空能量

假設昨收價是9648(每天變動)，那麼該如何設定，當價格收漲時，白線畫在9648之上，
價格是跌勢，白線畫在9648之下，意思是將9648當零。
VBA該如何寫才能自動將每日收盤價當成零軸。
收藏 分享
頑石

yystone

帖子
2 
主題
1 
精華
0 
積分
11 
點名
0  
作業系統
win 7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
女 
來自
高雄 
註冊時間
2010-11-13 
最後登錄
2015-3-13 

論壇贊助勳章
2#
發表於 2015-2-26 00:52 | 只看該作者
本帖最後由 yystone 於 2015-2-26 00:55 編輯

我嘗試自己寫的程式碼如下:
Sub 巨集2()
'收盤價放在M2儲存格
    A = Range("M2") + 100
    B = Range("M2") - 100
    ActiveSheet.ChartObjects("圖表 2").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlValue).Select
      ActiveChart.Axes(xlValue).MaximumScale = A
        ActiveChart.Axes(xlValue).MinimumScale = B
End Sub
-----------------------------------------------------------
可以劃出以收盤價為零軸
請教高手，該如何自動執行
頑石

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題