| 上一篇主題 :: 下一篇主題   | 
	
	
	
		| 發表人 | 
		內容 | 
	
	
		KKKLYNN
 
 
  註冊時間: 2004-09-17 文章: 357
 
  第 1 樓
  | 
		
			
				 發表於: 星期一 一月 21, 2008 8:45 pm    文章主題: 請問MSCHART XY圖的Y軸比例如何調整? | 
				     | 
			 
			
				
  | 
			 
			
				各位好
 
 
 
 
ActiveChart.Axes(xlValue).Select 
 
    With ActiveChart.Axes(xlValue) 
 
        .MinimumScaleIsAuto = True 
 
        .MaximumScale = 400 
 
        .MinorUnitIsAuto = True 
 
        .MajorUnitIsAuto = True 
 
        .Crosses = xlAutomatic 
 
        .ReversePlotOrder = False 
 
        .ScaleType = xlLinear 
 
        .DisplayUnit = xlNone 
 
    End With 
 
 
塞入 
 
this.Plot.Axis(y).MaximumScale = 500000 
 
或 
 
this.Plot.Axis(0).MaximumScale = 500000 
 
或 
 
this.Plot.Axis(0).Labels(1).MaximumScale =50000 
 
 
都會錯 
 
以上敬請協助 
 
謝謝 | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		KKKLYNN
 
 
  註冊時間: 2004-09-17 文章: 357
 
  第 2 樓
  | 
		
			
				 發表於: 星期一 一月 21, 2008 9:32 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				在 ole init裡下
 
this.Plot.Axis(1).ValueScale.Maximum = 50000 
 
並沒有出現錯誤,但也無將y軸上限調整 | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		KKKLYNN
 
 
  註冊時間: 2004-09-17 文章: 357
 
  第 3 樓
  | 
		
			
				 發表於: 星期一 一月 21, 2008 10:31 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				參考VB語法
 
已解決
 
謝謝 | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		ezpos
 
 
  註冊時間: 2011-04-20 文章: 323
 
  第 4 樓
  | 
		
			
				 發表於: 星期五 七月 17, 2015 4:31 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				請問一下Y軸比例如何調整?
 
 
 
this.Plot.Axis(0).MaximumScale = 500000 
 
 
 
我也是一樣遇到此問題 _________________ ezPos收銀機 簡單好用低成本  http://www.ezpos.info
 
全新美觀的POS收銀機.POS軟硬體耗材.
 
軟體客制化.網站規劃....能賺錢的都可以找我
 
 
http://www.twelife.com 台灣生活網 | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		perry
 
 
  註冊時間: 2014-07-20 文章: 203
 
  第 5 樓
  | 
		
			
				 發表於: 星期五 七月 17, 2015 9:27 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				這是我調整 Excel 統計圖使用的指令,您參考看看!!
 
Axes(1) ->x 軸 Axes(2) ->y 軸
 
 
*xlsheet1.ChartObjects(1).Chart.HasAxis(1)=.T.  &&顯示 x 軸列數
 
*xlsheet1.ChartObjects(1).Chart.Axes(1).MinimumScale = 最小值
 
*xlsheet1.ChartObjects(1).Chart.Axes(1).MaximumScale = 最大值
 
*xlsheet1.ChartObjects(1).Chart.Axes(1).MajorUnit = 主要刻度間距
 
*xlsheet1.ChartObjects(1).Chart.Axes(1).MinorUnit = 次要刻度間距
 
*xlsheet1.ChartObjects(1).Chart.HasAxis(1)=.F.  &&隱藏 x 軸列數
 
 
只有 HasAxis(n)=.T. 才能調整 Axes(n)的資料!! | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		 |