- 帖子
- 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
-----------------------------------------------------------
可以劃出以收盤價為零軸
請教高手，該如何自動執行
|
|
