如何使用VBA获取Excel图形中的标签数

如何使用VBA获取Excel图形中的标签数,vba,excel,Vba,Excel,有人知道如何在自动生成轴标签时获取轴标签的数量吗? 我想要类似的东西 ActiveChart.Axes(xlValue).Ticklabels.Count 但是“Count”属性不存在 我正在使用Excel2007,在本网站或集成帮助中找不到答案。 提前感谢您的帮助。根据上面MacroMarc的评论,我玩了一会儿。可能有用吗 Sub tickCount() ' Working with horizontal axis - xlCategory With Worksheets(1)

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

ActiveChart.Axes(xlValue).Ticklabels.Count     
但是“Count”属性不存在

我正在使用Excel2007,在本网站或集成帮助中找不到答案。
提前感谢您的帮助。

根据上面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
它似乎返回/打印刻度或间隔的数量,而不管它们是自动设置的还是手动设置的。也许有可能在你的代码中加入这一点


对不起,我不太清楚垂直条,听起来很酷!我想我应该先添加第二个列系列,或者两个-每种颜色一个,将它们放在第二个垂直轴上,然后从那里开始-您可能已经处于该阶段,尽管…

与大多数多重对象不同,TickLabel不是一个集合。查看此MSDN文档:我会询问您试图实现的目标,然后尝试不同的方法查看轴的MajorUnit、MinorUnit、MinimumScale和MaximumScale属性Object@MacroMarc谢谢你的回复。这可能是错误的做法。我试图根据自动生成的网格高亮显示我的图形区域,以获得双色背景(并在背景上获得垂直条带)。标签的数量会给我垂直主要单位的数量,因此“分色器”的位置。编辑:无法删除第一条不准确的评论。我不确定是否还有其他建议。我不知道如何把垂直条…嗨@Rovsom,非常感谢你的回复。很好用!它返回区域数,so(标签数-1)。关于垂直条带,我尝试了另一种解决方案,使用.top和。打印区域的左侧属性,它非常适合,但如果移动窗口或调整其大小,则会出现偏移。我试试你的建议。再次感谢!