返回列表 上一主題 發帖

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

如何指定圖表中座標軸選項(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! 代碼

小弟是用巨集錄製的,將您所要最小/最大固定值從表內直接賦值即可
剛開始小弟為了柏拉圖也是傷透腦筋,您參考看看
  1. Private Sub ParetoChScale()
  2. Dim MaxScal As Integer, MajScal As Integer, MinorScal As Integer, MinScal As Integer

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

  7. ActiveSheet.ChartObjects("圖表 1").Activate
  8.     ActiveChart.Axes(xlValue).Select
  9.     ActiveChart.Axes(xlValue).MaximumScale = MaxScal
  10.     ActiveChart.Axes(xlValue).MinimumScale = MinScal
  11.     ActiveChart.Axes(xlValue).MajorUnit = MajScal
  12.     ActiveChart.Axes(xlValue).MinorUnit = MinorScal
複製代碼

TOP

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

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

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題