使Excel图表网格线呈正方形的VBA代码.docx

使Excel图表网格线呈正方形的VBA代码

excelperfect

标签：Excel图表，VBA

Excel在缩放图表轴方面做得相当好，但有时你希望它能做得更好。下图1所示的XY散点图显示了一种情况，所有点的X和Y值都在0和7之间，但由于图表本身是矩形的，因此网格线沿X和Y轴的间距不同。如果沿两个轴的间距相同，并提供正方形网格线，不是更好吗？

图1

有几种方法可以实现这一点，不包括用鼠标单击和拖动的繁琐手动方法，也不包括尝试轴最大值的一系列值。这里使用VBA来处理此任务。

通过更改轴比例来设置方形网格线

第一种方法是测量图表的绘图区域尺寸，锁定轴比例参数，并使用比例确定网格线在水平和垂直方向的距离。然后，具有较大间距的轴的最大值会增加，因此其网格线间距会缩小以匹配较小间距的轴上的间距。

下面的函数接受想要处理的图表，实现正方形网格线。

FunctionSquareGridChangingScale(myChartAsChart)

???WithmyChart

???????获取绘图区尺寸

???????With.PlotArea

???????????DimplotInHtAsDouble

???????????DimplotInWdAsDouble

???????????plotInHt=.InsideHeight

???????????plotInWd=.InsideWidth

???????EndWith

???????获取轴比例参数并锁定比例

???????With.Axes(xlValue)

???????????DimYmaxAsDouble

???????????DimYminAsDouble

???????????DimYmajAsDouble

???????????Ymax=.MaximumScale

???????????Ymin=.MinimumScale

???????????Ymaj=.MajorUnit

???????????.MaximumScaleIsAuto=False

???????????.MinimumScaleIsAuto=False

???????????.MajorUnitIsAuto=False

???????EndWith

???????With.Axes(xlCategory)

???????????DimXmaxAsDouble

???????????DimXminAsDouble

???????????DimXmajAsDouble

???????????Xmax=.MaximumScale

???????????Xmin=.MinimumScale

???????????Xmaj=.MajorUnit

???????????.MaximumScaleIsAuto=False

???????????.MinimumScaleIsAuto=False

???????????.MajorUnitIsAuto=False

???????EndWith

???????刻度间距(距离)

???????DimYticAsDouble

???????DimXticAsDouble

???????Ytic=plotInHt*Ymaj/(Ymax-Ymin)

???????Xtic=plotInWd*Xmaj/(Xmax-Xmin)

???????保持绘图大小不变，调整最大比例

???????IfXticYticThen

???????????.Axes(xlCategory).MaximumScale=plotInWd*Xmaj/Ytic+Xmin

???????Else

???????????.Axes(xlValue).MaximumScale=plotInHt*Ymaj/Xtic+Ymin

???????EndIf

???EndWith

EndFunction

使用下面的代码调用上面的函数过程：

SquareGridChangingScaleActiveChart

图表效果如下图2所示，网格线为正方形。

图2

图表中有一条奇怪的空白边，但可以通过格式化绘图区域边框以匹配轴，使其看起来不那么奇怪。

图3

试试另一张图表。与第一个类似，但X值是之前的两倍，这导致了不同的比例，如下图4所示。

图4

调用SquareGridChangingScale过程后的图表如下图5所示。同样