VFP 愛用者社區

藍薰 · 註冊時間: 2004-01-15 文章: 65 第 1 樓

各位高手:
請問一個統計圖問題
我將數據產生至excel 後，也很順利可以產生統計圖
但是如何在foxpro下指令去修改統計圖
Y軸的最大、最小、主要、次要刻度呢？
Shocked

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 2 樓

建議你使用巨集..然後轉成VFP控制碼

藍薰 · 註冊時間: 2004-01-15 文章: 65 第 3 樓

可是我巨集一直學不好
小女子有個不請之情(成語有用錯嗎 Question

)
這位大哥方便好人作到底嗎
感激涕零 Embarassed

朱育興 · 發表於: 星期一十二月 27, 2004 5:35 pm 文章主題:

他未婚，可能可以吧

藍薰 · 註冊時間: 2004-01-15 文章: 65 第 5 樓

elleryq · 註冊時間: 2007-06-21 文章: 768 第 6 樓

excel 有錄製巨集
錄完就有 code 可以轉啦~

藍薰 · 註冊時間: 2004-01-15 文章: 65 第 7 樓

皇天不負苦心人
我終於try出來了 Very Happy

分享一下囉
題目是：
1.修改y軸的最大、最小、主要及次要刻度
.ChartObjects("Chart1").Chart.Axes(2).MinimumScale = 10
.ChartObjects("Chart1").Chart.Axes(2).MaximumScale = 20
.ChartObjects("Chart1").Chart.Axes(2).MajorUnitIsAuto = 2
.ChartObjects("Chart1").Chart.Axes(2).MinorUnitIsAuto = 1

進化成
2.依數據自動擷取成最適刻度及交叉於類別x軸
.ChartObjects("Chart1").Chart.Axes(2).MinimumScaleIsAuto = .T.
.ChartObjects("Chart1").Chart.Axes(2).MaximumScaleIsAuto = .T.
.ChartObjects("Chart1").Chart.Axes(2).MajorUnitIsAuto = .T.
.ChartObjects("Chart1").Chart.Axes(2).MinorUnitIsAuto = .T.
.ChartObjects("Chart1").Chart.Axes(2).Crosses = .T.

Laughing