早教吧作业答案频道 -->其他-->
如何让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轴与...的网友还看了以下:
关于钟表角度的问题分针每分钟转多少度?时针每分钟转多少度?每分钟分针比时针多转多少度?(3个问题啊 2020-05-02 …
一船每小时35千米速度走a到b地,又每小时25千米速度回a.这船往返平均速度多少km?一艘轮船以每 2020-05-12 …
关于雅思口语考官是位绅士看起来满和蔼的我回答的时候感觉没啥逻辑语法不太好可我也尽量多的回答了每个问 2020-05-17 …
文言文而范长康多度异书,搜讨米事,尤丑而祥,历题曰<志林>请予叙.皆爱而乐与之游,相与跌宕文史,品 2020-06-15 …
求看,我现在等!一包A4型号复印纸共500张,小吴用刻度尺测出这包纸的厚度是5厘米,那么一张这样的 2020-06-21 …
应用题快咯1.某地收取电费的标准是:每月用电量不超过50度,每度收5角;如果超出50度,超出部分按 2020-07-15 …
某点下列规定收取电费:每户每月用电不超过50度,每度收4角5分;如果每户超过50度,超过部分每度收 2020-07-16 …
小明家一个星期用电五分之四十二度,每天用电多少度?每度电多少可以用多少天?明家一个星期用电五分之四十 2020-11-03 …
关于圆周运动的几个疑问①圆周运动是要满足所对应的速度,每一点的速度都要满足,尤其是最高点,因为最高点 2020-11-24 …
第一档每月180度以内每度0.56元,第二档每月180一260度之间每度0.61第三档每月260度以 2021-01-01 …