早教吧作业答案频道 -->其他-->
如何让EXCEL的图表X轴与Y轴的刻度值随数据源自动改变?尤其是一个工作表中有多个图表时如何实现?我现在在一个EXCEL工作表中有6个图表,我想编辑一个宏,让每个图表的X轴与Y轴的刻度值随数据
题目详情
如何让EXCEL的图表X轴与Y轴的刻度值随数据源自动改变?尤其是一个工作表中有多个图表时如何实现?
我现在在一个EXCEL工作表中有6个图表,我想编辑一个宏,让每个图表的X轴与Y轴的刻度值随数据源自动改变最大值与最小值,
我刚才试了,把图表设为自动刻度还不行,
我以前做了一个工作表中只有一个图表的宏可以实现自动调整刻度, ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("aj30")
.MaximumScale = Range("aj29")
.MinorUnit = Range("aj32")
.MajorUnit = Range("aj31")
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
With ActiveChart.Axes(xlCategory)
.MinimumScale = Range("ak30")
.MaximumScale = Range("ak29")
.MinorUnit = Range("ak32")
.MajorUnit = Range("ak31")
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
但现在一个工作表中有多个图表就不好处
我现在在一个EXCEL工作表中有6个图表,我想编辑一个宏,让每个图表的X轴与Y轴的刻度值随数据源自动改变最大值与最小值,
我刚才试了,把图表设为自动刻度还不行,
我以前做了一个工作表中只有一个图表的宏可以实现自动调整刻度, ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("aj30")
.MaximumScale = Range("aj29")
.MinorUnit = Range("aj32")
.MajorUnit = Range("aj31")
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
With ActiveChart.Axes(xlCategory)
.MinimumScale = Range("ak30")
.MaximumScale = Range("ak29")
.MinorUnit = Range("ak32")
.MajorUnit = Range("ak31")
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
但现在一个工作表中有多个图表就不好处
▼优质解答
答案和解析
可以实现的
实际上,不用编写宏,可以把图表设置为自动刻度就行.
双击刻度,然后有对话框,把最大值选为自动就行.
实际上,不用编写宏,可以把图表设置为自动刻度就行.
双击刻度,然后有对话框,把最大值选为自动就行.
看了 如何让EXCEL的图表X轴与...的网友还看了以下:
matlab画二维图如何才能让x轴长一些,y轴短一些我画出来的图框总是近似正方形,怎么样让它变成很 2020-05-16 …
英语翻译愿上帝赐我平静的心,让我接受我无法改变的事情.愿上帝赐我勇气,让我改变我能改变的事情.愿上 2020-05-17 …
英语翻译愿上帝赐我平静的心,让我接受我无法改变的事情愿上帝赐我勇气,让我改变我能改变的事情愿上帝赐 2020-05-17 …
英语翻译愿上帝赐我平静的心,让我接受我无法改变的事情愿上帝赐我勇气,让我改变我能改变的事情愿上帝赐 2020-05-17 …
hello!y=(x-1)(x-2)(x-3).(x-100)的导数怎么求?再帮忙归纳到一般式的导 2020-05-20 …
将有错的地方改正*N1.x^3*x^4=x^12()2.x*x^3=x^3()3.x^3+x^5= 2020-05-23 …
儿子坚决地说,孔融让梨,我让蛋.改为间掊引语怎么改ewfcdsewf 2020-07-13 …
设函数y=f(x),当自变量x由x改变到x+△x时,函数值的改变量△y等于()A.f(x+△x)B 2020-07-25 …
英语翻译赐我平静,让我接受不可改变的事情.赐我勇气,让我改变能够改变的事情.赐我智慧,让我分辨两者的 2020-11-22 …
认为语文学的很棒的牛人进来!谢谢!小明对小华说:“你把笔还给我!”请问这句话如果改成“小明让……”( 2020-11-26 …