怎么更改坐标轴标题access_用Access调整双轴图坐标及Excel中方法对比

用Access调整双轴图坐标及Excel中方法对比

关键字：双轴图趋势图vba excel access 坐标

由于经常要画双轴图，常常碰到左轴有负数，右轴没有负数，希望将0轴坐标对齐。当然，一个图的话手工改就可以了，如果每个月都要画上百个呢？所以想到用vba自动调整，查了网上资料，很少这方面的专题文章。经摸索，初步写了一些代码，可能还有进一步优化的空间，权当抛砖引玉。以下用excel控制双轴图、用access控制双轴图、用access打开excel 并控制其双轴图三种方法进行列举比较，与大家分享。

一：用excel调整双轴图

Private Sub CommandButton2_Click()

ChartObjects("图表1").Activate

With ActiveChart.Axes(xlV alue)

ccc = .MajorUnit '左轴间距

aaa = .MaximumScale '左轴最大值

bbb = .MinimumScale '左轴最小值

End With

With ActiveChart.Axes(xlV alue, xlSecondary)

.MinimumScaleIsAuto = True

.MaximumScaleIsAuto = True

.MajorUnitIsAuto = True

aa2 = .MaximumScale '右轴最大值

Call mm(aaa, bbb, ccc, aa2, aa3, aa4) 'aa左大bb左小cc左距aa2右大aa3右小aa4右间距

.MinimumScale = aa3

.MaximumScale = aa2

.MajorUnit = aa4

End With

End Sub

Sub mm(aa, bb, cc, dd, ee, aa4) 'aa左大bb左小cc左距dd右大ee右小aa4右间距If bb > 0 Then bb = 0

ff = dd * 10 Mod (aa / cc)

If ff = 0 Then ff = aa / cc

dd = dd + ff / 10

If dd > (2 * aa / cc) Then

aa4 = Round(dd / (aa / cc), 0)

Else

aa4 = Round(dd / (aa / cc), 1)

End If

dd = aa4 * (aa / cc)

ee = dd * bb / aa

End Sub