我有以下绘制散点图的代码。是否有一种优雅的方法来调整绘图区域的大小，使得 x 和 y 轴并不总是自动从零开始，而是略低于最低值？目前，我所有的数据点最终都聚集在一个角落。非常感谢！
Set cht = ActiveChart
'GRAPH 1
Set rng1 = ActiveSheet.Range(Range("AC13").Offset(jump * 50, 0), Range("AG23").Offset(jump * 50, 0))
With ActiveSheet.ChartObjects.Add(Left:=rng1.Left, Width:=rng1.Width, Top:=rng1.Top, Height:=rng1.Height)
'(Left:=100, Width:=375, Top:=75, Height:=225)
.Chart.ChartType = xlXYScatterLines
.Chart.HasLegend = False
.Chart.Axes(xlCategory).TickLabels.Font.Size = 18
.Chart.Axes(xlValue).TickLabels.Font.Size = 18
'.Chart.SetSourceData Source:=Range("U13:O40,T13:N40")
Set srs = .Chart.SeriesCollection.NewSeries
srs.XValues = Range(Range("U13").Offset(jump * 50, 0), Range("U13").Offset(jump * 50, 0).End(xlDown))
srs.Values = Range(Range("T13").Offset(jump * 50, 0), Range("T13").Offset(jump * 50, 0).End(xlDown))
End With
如果您的 y 范围数据位于单元格中B1:B10 of the ActiveSheet那么您可以使用这样的代码将范围从最低值的 90% 开始（即正下方）
Set cht = ActiveChart
cht.Axes(xlValue).MinimumScale = 0.9 * Application.Min([b1:b10])
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
