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で参照に問題がありましたが、アクセスの参照に参照が設定されていませんでした

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

グラフは機能しないと思いますが、2台のコンピューターのバージョンに違いはありません。

データベースを逆コンパイル、コンパイル、圧縮しようとしましたが、うまくいきませんでした。参照を削除しようとしましたが、うまくいきませんでした。「MISSING」を示す参照はありません

4

1 に答える 1

1

遅延バインディングを使用して、コードを実行できるようにします。

Dim oGraph As Object
Dim chSeries As Object

グラフがコンピューターに正しく登録されていない可能性があります。手動で登録できました。念のため、これを行う前に復元ポイントを作成します(おそらくレジストリをバックアップすることもできますが、これはおそらく慎重すぎるでしょう)。

  • [スタート] ボタン、[実行] の順にクリックします。
  • "C:\Program Files\Microsoft Office\Office14\GRAPH.EXE" /REGSERVER

Access を再インストールし、すべての Windows Update で Access が最新であることを確認することも、別の方法です。

于 2013-06-28T19:46:06.077 に答える