Access 2016中通过VBA自定义条形图单条颜色的技术求助

我之前折腾过Access里的Microsoft Graph Chart，确实遇到过这种属性“失踪”的情况——明明Excel/Word里能用SeriesCollection，到Access里智能感知就找不到了。试试下面这些实际有效的思路：

• 先确认Graph对象库的引用
  很多时候是因为Access默认没加载Graph的对象库，导致属性无法被智能感知到。打开VBA编辑器，点击「工具」→「引用」，找到并勾选Microsoft Graph 16.0 Object Library（对应Access 2016版本）。设置完引用后，再去查看MyGraph对象，应该就能看到SeriesCollection相关属性了。

• 通过OLE控件的Object属性获取底层Graph实例
  Access里的图表是作为OLE控件存在的，你需要先穿透到它的底层Graph对象，才能操作系列和数据点。示例代码如下：

  ' 替换成你表单里的图表控件名称
  Dim chartCtrl As Access.OLEObject
  Set chartCtrl = Me.YourChartControlName
  
  ' 获取底层的Microsoft Graph Chart对象
  Dim graphChart As MSGraph.Chart
  Set graphChart = chartCtrl.Object
  
  ' 访问第一个数据系列，遍历每个数据点设置颜色
  Dim dataSeries As MSGraph.Series
  Set dataSeries = graphChart.SeriesCollection(1)
  
  Dim i As Integer
  For i = 1 To dataSeries.Points.Count
      ' 判断当前数据点的数值
      If dataSeries.Values(i) > 0 Then
          dataSeries.Points(i).Interior.Color = RGB(0, 0, 255) ' 蓝色
      Else
          dataSeries.Points(i).Interior.Color = RGB(255, 0, 0) ' 红色
      End If
  Next i
  

• 如果还是不行，试试后期绑定
  要是不想设置引用，或者引用后还是看不到属性，可以用后期绑定的方式（没有智能提示，但代码能正常运行）：

  Dim chartCtrl As Access.OLEObject
  Set chartCtrl = Me.YourChartControlName
  
  Dim graphChart As Object
  Set graphChart = chartCtrl.Object
  
  Dim dataSeries As Object
  Set dataSeries = graphChart.SeriesCollection(1)
  
  Dim i As Integer
  For i = 1 To dataSeries.Points.Count
      If dataSeries.Values(i) > 0 Then
          dataSeries.Points(i).Interior.Color = RGB(0, 0, 255)
      Else
          dataSeries.Points(i).Interior.Color = RGB(255, 0, 0)
      End If
  Next i
  

• 检查图表数据源的有效性
  如果数据源为空或者绑定异常，也可能导致SeriesCollection无法正常访问。先手动刷新图表，确认数据能正常显示，再运行代码测试。

内容的提问来源于stack exchange，提问作者Makketronix