With ActiveSheet.ChartObjects("圖表 1").Chart
With .Axes(xlValue, xlPrimary)
k = .MinimumScale
m = .MaximumScale
n = .MinorUnit
s = .MajorUnit
End With
With .Axes(xlValue, xlSecondary)
.MinimumScale = k
.MaximumScale = m
.MinorUnit = n
.MajorUnit = s
End With
End With作者: freeffly 時間: 2011-12-26 08:59