作者：绿色风
分类：
时间：2022-08-18
浏览：131
楼主
chrisfang |
以下示例代码可以将活动工作表中名为“图表 1”的图表的X轴交叉位置根据数据的大小情况，自动放置于Y轴的居中位置（大致居中，非绝对精确）。无论数据如何变化，X轴的位置始终处于图表的中间线上：
- Private Sub Worksheet_Calculate()
- If ActiveSheet.ChartObjects("图表 1").Chart.Axes(xlValue).CrossesAt <> getcrossnum("图表 1") Then
- ActiveSheet.ChartObjects("图表 1").Chart.Axes(xlValue).CrossesAt = getcrossnum("图表 1")
- End If
- End Sub
- Private Sub Worksheet_Change(ByVal Target As Range)
- If ActiveSheet.ChartObjects("图表 1").Chart.Axes(xlValue).CrossesAt <> getcrossnum("图表 1") Then
- ActiveSheet.ChartObjects("图表 1").Chart.Axes(xlValue).CrossesAt = getcrossnum("图表 1")
- End If
- End Sub
- Function getcrossnum(chartname As String)
- Dim arr
- Sertext = ActiveSheet.ChartObjects(chartname).Chart.SeriesCollection(1).Formula
- Sertext = Mid(Sertext, 9, Len(Sertext) - 9)
- arr = Split(Sertext, ",")
- getcrossnum = (Application.Max(ActiveSheet.Range(arr(2)).Value) + Application.Min(ActiveSheet.Range(arr(2)).Value)) / 2
- End Function
 自适应x轴交叉位置.rar
|
2楼
亡者天下 |
跟方版学习！
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一