为什么图表ApplyDataLabels在Access 2010中不起作用

Question

我在Access 2010中构建了一些图表并试图自动化它们。 但我不能通过vba应用数据标签。

当我尝试使用ApplyDataLabels，我得到了错误438：

Dim mychart As Object 
Dim myseries As Object 
Dim ax As Object 
Dim pt As Object 

Set mychart = frm.ChartSpace.Charts(0) 

For Each myseries In mychart.SeriesCollection 
    myseries.ApplyDataLabels '438 - Object doesn't support this property or method 
Next 

什么我需要做的，使datalabel可用？

提前致谢！

Fábio。

Answer 1

我已经找到了解决办法：

Dim dl as Object 
For Each myseries In mychart.SeriesCollection 
     Set dl = myseries.DataLabelsCollection.Add 
     dl.NumberFormat = "0.00" 
Next