1

在 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 时遇到了问题,但在 access 中的引用上没有设置引用

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

Graph是我认为不起作用的那个,但是两台计算机之间的版本没有区别。

我试图反编译,编译和压缩数据库,没有运气。尝试删除参考,没有运气。没有参考显示“失踪”

4

1 回答 1

1

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

Dim oGraph As Object
Dim chSeries As Object

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

  • 点击开始按钮,运行
  • "C:\Program Files\Microsoft Office\Office14\GRAPH.EXE" /REGSERVER

重新安装 Access 并确保它与所有 Windows 更新都是最新的是另一种可能性。

于 2013-06-28T19:46:06.077 回答