vba - 如何使用 VBA 获取 Excel 图表中刻度标签的数量

Question

有人知道如何在自动生成轴的刻度标签时获取它们的数量吗？
我想要类似的东西

ActiveChart.Axes(xlValue).Ticklabels.Count     

但“计数”属性不存在。

我正在使用 Excel 2007，但在此站点或集成帮助中找不到答案。
在此先感谢您的帮助。

Answer 1

按照上面的 MacroMarc 的评论 - 我玩了一下。可能有用吗？

Sub tickCount()

' Working with horizontal axis - xlCategory

With Worksheets(1).ChartObjects(1).Chart.Axes(xlCategory)

    Debug.Print (.MaximumScale - .MinimumScale) / .MajorUnit

End With

End Sub

这似乎返回/打印刻度或间隔的数量，无论它们是自动设置还是手动设置。也许可以将其按摩到您的代码中...

不确定垂直 strip 抱歉 - 虽然听起来很酷!我想我会首先添加第二个列系列，或者两个 - 每种颜色一个，将它们放在辅助垂直轴上并从那里开始 - 虽然你可能已经处于那个阶段......