【发布时间】:2020-07-13 20:33:58
【问题描述】:
我正在尝试在 MS Access 2013 中编写代码,该代码将根据系列的值更改图表中每个条形的颜色。数据存储在根据条件集更改的查询中。
形式是组合框链和列表框,它们设置查询条件。重新查询后输出是一个图表。
Private Sub listS_AfterUpdate()
Me.graph.Requery
Dim i
With graph
For i = 1 To .SeriesCollection.Count
If .SeriesCollection(i).Value < 0.78 Then
.SeriesCollection(i).Border.Color = RGB(255, 0, 0)
.SeriesCollection(i).Interior.Color = RGB(255, 0, 0)
Else
.SeriesCollection(i).Border.Color = RGB(0, 255, 0)
.SeriesCollection(i).Interior.Color = RGB(0, 255, 0)
End If
Next i
End With
End Sub
问题出在IF语句中:
If .SeriesCollection(i).Value < 0.78 Then
错误:
对象不支持该属性或方法
谁能帮我解决这个问题?
谢谢
【问题讨论】:
标签: ms-access charts vba ms-access-2013