返回列表 上一主題 發帖

如何指定圖表中座標軸選項(X軸&Y軸)值

alpha

帖子
9 
主題
4 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2007 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-23 
最後登錄
2024-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
2#
發表於 2013-1-23 17:48 | 只看該作者
小弟是用巨集錄製的,將您所要最小/最大固定值從表內直接賦值即可
剛開始小弟為了柏拉圖也是傷透腦筋,您參考看看
  1. Private Sub ParetoChScale()
  2. Dim MaxScal As Integer, MajScal As Integer, MinorScal As Integer, MinScal As Integer

  4. MaxScal = Sheets(1).[a1].Value '座標軸選項 最大值
  5. MajScal = Sheets(1).[a2].Value  '座標軸選項 主要刻度間距
  6. MinorScal = Sheets(1).[a3].Value  '座標軸選項 次要刻度間距
  7. MinScal = Sheets(1).[a4].Value '座標軸選項 最小值

  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
複製代碼

TOP

alpha

帖子
9 
主題
4 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2007 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-23 
最後登錄
2024-9-28 
3#
發表於 2013-1-23 21:12 | 只看該作者
本帖最後由 alpha 於 2013-1-23 21:14 編輯

在您POST 後9 分鐘，讓我很是訝異。這麼久，我還在傷腦筋仍沒解決。因要事處理先，3小時候的現在謝謝您。套用中。
謝謝這個平台，謝謝所有熱心人。
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題