如何让图表的数值轴最小值自动适应数据区域的最小值？

作者：绿色风分类：时间：2022-08-17 浏览：94

楼主
chrisfang

Q：如何让图表的数值轴最小值自动适应数据区域的最小值？
A：以下示例代码可以将活动工作表中名为“图表 1”的图表的数值轴最小值与其数据区域的最小值进行自动关联，当数据区域中的最小值发生变化时，图表中的坐标轴极值随之自动改变。此示例中为单系列图表，如有多个数据系列，可参考此方法进行多系列的最小值统计：

Private Sub Worksheet_Calculate()
If ActiveSheet.ChartObjects("图表 1").Chart.Axes(xlValue).MinimumScale <> getminnum("图表 1") Then
ActiveSheet.ChartObjects("图表 1").Chart.Axes(xlValue).MinimumScale = getminnum("图表 1")
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.ChartObjects("图表 1").Chart.Axes(xlValue).MinimumScale <> getminnum("图表 1") Then
ActiveSheet.ChartObjects("图表 1").Chart.Axes(xlValue).MinimumScale = getminnum("图表 1")
End If
End Sub
Function getminnum(chartname As String)
Dim arr
Sertext = ActiveSheet.ChartObjects(chartname).Chart.SeriesCollection(1).Formula
Sertext = Mid(Sertext, 9, Len(Sertext) - 9)
arr = Split(Sertext, ",")
getminnum = Application.Min(ActiveSheet.Range(arr(2)).Value)
End Function

自适应坐标轴最小值.rar

2楼
海洋之星

哈哈,跟着学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表