- 帖子
- 75
- 主題
- 1
- 精華
- 0
- 積分
- 371
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-5-4
- 最後登錄
- 2025-9-6
|
回復 2# jcsbdsenuj
Sub Macro1()
Range("c1").Value = "=MAX(C5:C16)"
ActiveChart.Axes(xlValue).Select
ActiveSheet.ChartObjects("圖表 1").Activate
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = Cells(1, 3)
End Sub |
|
發表於 2015-4-7 07:34
| 