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