返回列表下一主題上一主題發帖

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

alpha

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 95
主題: 29
精華: 0
積分: 150
點名: 0
作業系統: windows2003
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Kaoshiung
註冊時間: 2010-11-5
最後登錄: 2018-2-8

2^#

發表於 2013-1-23 17:48 | 只看該作者

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

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

複製代碼

TOP

alpha

中學生 Rank: 2

帖子: 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

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。

返回列表下一主題上一主題