Access VBA 创建和格式化图表宏在 Excel 中有效，但在 Access 中无效

Question

我在 Access 中有一个模块，它可以制作新的 Excel 电子表格、制作新表格并将数据从数据库复制到表格中。我想从这个表中创建一个图表并格式化它。创建图表的子如下。

    Dim xlapp as Excel.Application
    Dim wb as Excel.Workbook
    Dim ws as Excel.Worksheet
    Set xlapp = New Excel.Application
    Set wb = 'created new workbook
    Set ws = wb.Worksheets(1)

    ws.Range("Results_Table[#All]").Select
    ws.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Results_Table[#All]")

    ActiveChart.FullSeriesCollection(1).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(1).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(2).AxisGroup = 1
    ActiveChart.FullSeriesCollection(3).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(3).AxisGroup = 1
    ActiveChart.FullSeriesCollection(4).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(4).AxisGroup = 1
    ActiveChart.FullSeriesCollection(5).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(5).AxisGroup = 1
    ActiveChart.FullSeriesCollection(6).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(6).AxisGroup = 1
    ActiveChart.FullSeriesCollection(7).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(7).AxisGroup = 1
    ActiveChart.FullSeriesCollection(8).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(8).AxisGroup = 2
    ActiveChart.FullSeriesCollection(9).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(9).AxisGroup = 2
    ActiveChart.FullSeriesCollection(10).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(10).AxisGroup = 2
    ActiveChart.FullSeriesCollection(11).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(11).AxisGroup = 2
    ActiveChart.FullSeriesCollection(12).ChartType = xlColumnStacked
    ActiveChart.FullSeriesCollection(12).AxisGroup = 2
    ActiveChart.FullSeriesCollection(13).ChartType = xlXYScatterLines
    ActiveChart.FullSeriesCollection(13).AxisGroup = 2
    ActiveChart.FullSeriesCollection(14).ChartType = xlXYScatter
    ActiveChart.FullSeriesCollection(14).AxisGroup = 2

    ActiveChart.ChartGroups(2).Overlap = 100
    ActiveChart.ChartGroups(2).GapWidth = 475

    ActiveChart.ChartGroups(1).GapWidth = 159

在访问中，这段代码可以成功创建一个'Column Clustered'类型的图表。然而，仅此而已。我尝试将某些部分更改为堆叠的列或散点图的下方的所有内容均无济于事。我可以在所有寄存器的底部放一个打印语句，所以我知道代码实际上到达了那个点。

我还可以复制并粘贴这个确切的代码（将 ws 更改为 ActiveSheet），它可以完美地创建我想要的图表并完全按照它应该的方式进行格式化。

我不确定为什么这些命令在 Excel 中有效，但在 Access 模块中无效。

Answer 1

也许活动图表不是您刚刚创建的图表？尝试类似：

dim chrt as Chart
set chrt = ws.Shapes.AddChart2(201, xlColumnClustered)
chrt.SetSourceData Source:=Range("Results_Table[#All]")

用 chrt 替换活动图表。

Answer 2

本质上，您的问题是在 Excel 之外访问 Excel 对象。在 MS Office 应用程序中，如果您没有使用命名对象限定方法，则假定您正在访问宿主应用程序中的对象。请参阅下图与工作簿对象

Dim xlApp As Excel.Application          ' UNNECESSARY IF INSIDE MS EXCEL

Set wb = xlApp.Workbooks.Open(...)      ' ASSIGN EXCEL WORKBOOK EXTERNALLY

Set wb = Workbooks.Open(...)            ' ASSIGN EXCEL WORKBOOK INTERNALLY

因此，您的 ActiveChart 指向一个 MS Access ActiveChart 对象，该对象可能是它的 OLEDB 图表表单/报告对象，或者您的代码 is 出错，但您正在抑制消息 (即On Error Resume Next)，因为这听起来不像是 MS Access 对象。

但要访问 Excel 的 Chart 对象，请将其分配给使用 Set 运算符定义的对象：

Dim myChart As Object                 ' LATE BINDING 
'Dim myChart As Excel.Chart           ' EARLY BINDING
...

ws.Range("Results_Table[#All]").Select

Set myChart = ws.Shapes.AddChart2(201, xlColumnClustered)
myChart.SetSourceData Source:=ws.Range("Results_Table[#All]")

myChart.Select
myChart.FullSeriesCollection(1).ChartType = xlColumnStacked
myChart.FullSeriesCollection(1).AxisGroup = 1
...

或者使用 With...End With 块和带有循环的 DRY-er 代码

Dim xlApp As Excel.Application
Dim i As Integer
...

ws.Shapes.AddChart2(201, xlColumnClustered).Select

With xlApp.ActiveChart
    .SetSourceData Source:=ws.Range("Results_Table[#All]")

    For i = 1 To 14
       .FullSeriesCollection(i).ChartType = xlColumnStacked
       .FullSeriesCollection(i).AxisGroup = 1
    Next i

    ...

End With