ChartSpace中缺lessExcel VBA“AxisBetweenCategories”属性

我徒然尝试将AxisBetweenCategories属性设置为False在AxisBetweenCategories ChartSpace中。 这是一个聚类的BarChart。 我在一个正常的图表中手动做了同样的工作。 loggingMarco使用AxisBetweenCategories属性生成代码。 为什么我不能在Userform ChartSpace中使用它。

 me.ChartSpace1.Charts(0).Axes(0).AxisBetweenCategories = False 'doesn't work 

我错过了什么? 谢谢

ChartSpace对象中的“Chart”是ChCharttypes的,并且您在Chart (工作表或Chart上使用的属性和方法不会直接转换,所以不幸的是macroslogging器不会有太大的帮助,您将不得不转向老式的debugging,试错。

我使用本地窗口来检查对象的提示对象模型(这就是我观察到的types是ChChart等)

在这里输入图像说明

然后,您可以查看可用的属性, Google 通常可以将您指向正确的方向 , 如此示例 。 探索intellisense,我看到有真正有限的选项,不同于工作表上的Chart对象。

毕竟,这可能不是你想听到的答案,但它不能按照你想要的方式完成

这似乎证实了这一观察,并且表明,虽然有些事情是相同的,但是其他事物却不能以同样的方式呈现。

[图表空间图表]不像Excel那样具有精确的轴交叉。 两者之间的特点将在某些地区类似,而不是在其他地区

和微软的一个类似的例子 :

此示例将类别轴设置为在图表工作空间中以值零(0)跨越值轴。

 Sub SetCrossingValue() Dim chConstants Dim axValueAxis Dim axCategoryAxis Set chtContants = ChartSpace1.Constants Set axValueAxis = ChartSpace1.Charts(0).Axes(chConstants.chAxisPositionValue) Set axCategoryAxis = ChartSpace1.Charts(0).Axes(chConstants.chAxisPositionCategory) axValueAxis.CrossingAxis = axCategoryAxis axCategoryAxis.CrossesAtValue = 0 End Sub 
Interesting Posts