早教吧作业答案频道 -->其他-->
如何让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轴与...的网友还看了以下:
复数多值的一个问题z是一个复数且z不等于0为什么(e^2)^z是多值,但是e^(2z)确实单值?还 2020-05-13 …
lim(1+1/n)^n=e,n→∞,关于e的问题书上写“其极值记为e”这个e和那个.71828… 2020-05-14 …
设a>0,f(x)=e^x/a+a/e^x是R上的偶函数,求a值.∵f(x)=e^x/a+a/e^ 2020-05-17 …
lim(1+1/n)^n=e,n→∞,关于e的问题书上写“其极值记为e”这个e和那个.71828… 2020-06-12 …
1.e为方阵A的特征值,则矩阵kA,A的平方,aA+bE,A的m次方,A的逆,A的伴随阵分别有特征 2020-06-18 …
请问,在求解矩阵的特征值和特征向量时,特征行列式|λE-A|与|A-λE|可以替代使用吗?在求解特 2020-07-27 …
已知函数f(x)=exx+a(x-lnx),在x∈(12,2)上有三个不同的极值点(e为自然对数的 2020-07-30 …
[C程]要求定义并调用函数funcos(e,x)计算cos(x)的值,e为精度请问我做的哪里不对? 2020-08-02 …
在excel2010中当D列数值小于E列数值的时候相对应的单元格填充颜色变为红色或者其他颜色在exc 2020-11-06 …
输入精度e和实数x,用下列公式求cosx的近似值,精确到最后一项的绝对值小于e��要求定义和调用函数 2020-12-24 …