標題: 如何指定圖表中座標軸選項(X軸&Y軸)值 [打印本頁]

---

作者: alpha    時間: 2012-5-18 17:12     標題: 如何指定圖表中座標軸選項(X軸&Y軸)值

請問:
如何指定圖表中座標軸選項(X軸&Y軸)最小固定值與最大固定值?
以方便查看局部圖表。  (散佈圖)
        X軸        Y軸                                                     X軸             Y軸
        10        100                最小固定值        13        150
        15        200                最大固定值        55        420
        20        300                               
        22        400                視需求而任意設定 座標軸之數值               
        35        500                               
        40        245                               
        33        312                               
        20        188

---

作者: cmo140497    時間: 2013-1-23 17:48

小弟是用巨集錄製的,將您所要最小/最大固定值從表內直接賦值即可
剛開始小弟為了柏拉圖也是傷透腦筋,您參考看看

1. Private Sub ParetoChScale()
   
2. Dim MaxScal As Integer, MajScal As Integer, MinorScal As Integer, MinScal As Integer
   
3. 
   
4. MaxScal = Sheets(1).[a1].Value '座標軸選項 最大值
   
5. MajScal = Sheets(1).[a2].Value  '座標軸選項 主要刻度間距
   
6. MinorScal = Sheets(1).[a3].Value  '座標軸選項 次要刻度間距
   
7. MinScal = Sheets(1).[a4].Value '座標軸選項 最小值
   
8. 
   
9. ActiveSheet.ChartObjects("圖表 1").Activate
   
10.     ActiveChart.Axes(xlValue).Select
    
11.     ActiveChart.Axes(xlValue).MaximumScale = MaxScal
    
12.     ActiveChart.Axes(xlValue).MinimumScale = MinScal
    
13.     ActiveChart.Axes(xlValue).MajorUnit = MajScal
    
14.     ActiveChart.Axes(xlValue).MinorUnit = MinorScal

複製代碼

---

作者: alpha    時間: 2013-1-23 21:12

本帖最後由 alpha 於 2013-1-23 21:14 編輯

在您POST 後9 分鐘，讓我很是訝異。這麼久，我還在傷腦筋仍沒解決。因要事處理先，3小時候的現在謝謝您。套用中。
謝謝這個平台，謝謝所有熱心人。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)