图表的格式设置能不能使用公式来定义？

又见清风 · 发表于 2020-5-8 17:46

如图，如何能让excel自动设置的最小值不是取0，而是接近所列数值中的最小值。（这里不能设置公式，不懂怎么弄了）

悠悠的炊烟 · 发表于 2020-5-8 18:20

本帖最后由悠悠的炊烟于 2020-5-8 18:24 编辑

坐标值最大最小值要么由系统自动给出，要么自己手动更改固定，一旦手动变更固定后数据源再变更也不会自动随之变动。
唯一的解决方案是引入VBA控制解决，参考一下这个帖子吧
http://club.excelhome.net/forum. ... =%D7%F8%B1%EA%D6%E1

又见清风 · 发表于 2020-5-9 12:19

谢谢炊烟老师的解惑

又见清风 · 发表于 2020-5-12 11:21

悠悠的炊烟发表于 2020-5-8 18:20
坐标值最大最小值要么由系统自动给出，要么自己手动更改固定，一旦手动变更固定后数据源再变更也不会自动随 ...

大侠，我需要获取每个图表里Y轴系列值的最小值和最大值，这个Y轴系列值的区域在vba中怎么获取？录了个宏，什么都得到

Sub 宏2()
'
' 宏2 宏
'
'
ActiveSheet.ChartObjects("图表 6").Activate
ActiveSheet.ChartObjects("图表 6").Activate
Range("K32").Select
End Sub

复制代码

悠悠的炊烟 · 发表于 2020-5-12 11:57

你是要设置图表的最大最小值还是要获得图表的最大最小值？

又见清风 · 发表于 2020-5-12 13:23

悠悠的炊烟发表于 2020-5-12 11:57
你是要设置图表的最大最小值还是要获得图表的最大最小值？

要先获得对应图表的Y轴系列值的最大最小值，然后重新设置图表的Y轴边界最大最小值

其实就是想实现：ActiveSheet.ChartObjects(i).Chart.Axes(xlValue).MinimumScale = min（D26：J26），但不懂如何获得ChartObjects(i)的Y轴系列值的引用地址D26：J26

悠悠的炊烟 · 发表于 2020-5-12 14:10

ActiveSheet.ChartObjects(i).Chart.Axes(xlValue).MinimumScale = Application.WorksheetFunction.Min(Range("d26:j26"))

又见清风 · 发表于 2020-5-12 14:58

本帖最后由又见清风于 2020-5-13 13:37 编辑

悠悠的炊烟发表于 2020-5-12 14:10
ActiveSheet.ChartObjects(i).Chart.Axes(xlValue).MinimumScale = Application.WorksheetFunction.Min(Ran ...

ActiveSheet.ChartObjects(i).Chart.Axes(xlValue).MinimumScale = Application.WorksheetFunction.Min(Range( ))
上例中D26：J26是我想得到的东西，我是不知道这个Range怎么用vba获取

悠悠的炊烟 · 发表于 2020-5-12 16:47

又见清风发表于 2020-5-12 14:58
ActiveSheet.ChartObjects(i).Chart.Axes(xlValue).MinimumScale = Application.WorksheetFunction.Min(R ...

抱歉，真不知道你想干什么

又见清风 · 发表于 2020-5-12 16:59

表达能力有限，

怎么用vba获取既有图表ChartObjects(i)的数据源？

		自动登录	找回密码
密码			免费注册

[求助] 图表的格式设置能不能使用公式来定义？