Question

在VBA中进行访问时，我使用Graph.Chart对象重新调整所有文本以使其适合并更改标题以匹配显示的数据。

我测试了几台计算机并且一切运行良好，但在演示室中，它无法正常工作。

我收到错误13，类型不匹配

Dim oGraph As Graph.Chart

'Error after oGraph set. (Type mismatch)
Set oGraph = Me.Graphique0.Object

Dim chSeries As Series
For Each chSeries In oGraph.SeriesCollection
    chSeries.DataLabels.Orientation = 45
    With chSeries.DataLabels.Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = vbBlack
        .Background = xlAutomatic
    End With
Next

我在使用ADO时遇到了问题，但未在访问

中的引用上设置引用

DAO: C:\Program Files\Common Files\Microsoft Shared\OFFICE14\ACEDAO.DLL
Graph: C:\Program Files\Microsoft Office\Office14\GRAPH.EXE

图表是我认为无法工作的图形，但两台计算机之间的版本没有区别。

我试图反编译，编译和压缩数据库，没有运气。试图删除引用，没有运气。没有参考资料显示“MISSING”

Answer 1

使用后期绑定允许代码运行：

Dim oGraph As Object
Dim chSeries As Object

可能是图表未在计算机上正确注册。您可以手动注册。在执行此操作之前，我会创建一个还原点，以防万一（甚至可能备份注册表，但这可能过于谨慎）。

单击“开始”按钮，“运行”
"C:\Program Files\Microsoft Office\Office14\GRAPH.EXE" /REGSERVER

重新安装Access并确保它与所有Windows更新保持同步是另一种可能性。

键入与VBA不匹配，而其他计算机运行良好

1 个答案: