用VBA類型不匹配，而其他計算機能

論VBA訪問，我使用Graph.Chart對象rezise所有文本，以便它很合身，更改標題，以匹配顯示的數據。用VBA類型不匹配，而其他計算機能

我測試severals電腦，一切運作良好，但在演示室，它不工作。

我得到一個錯誤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

圖是一個我認爲這並不起作用，但兩臺計算機之間的版本沒有區別。

我試圖反編譯，編譯和壓縮數據庫，沒有運氣。試圖刪除參考，沒有運氣。沒有引用顯示「失蹤」

來源

2013-06-20 Insecurefarm

你可以嘗試：Dim oGraph As Object'。對不起，我不能有更多的幫助。 –

@AndrewGibson它的工作，但不要太多 '對於每個chSeries在ograph.SeriesCollection' 現在觸發類型不匹配（錯誤13），但標題設置沒有錯誤。 – Insecurefarm

你也可以...... Dim chSeries As Object'。解決參考問題會更專業......但至少你可能能夠得到它的工作。 –

使用後期綁定允許代碼運行：

Dim oGraph As Object 
Dim chSeries As Object

這可能是圖形未正確註冊在計算機上。您可以手動註冊。這樣做之前我會創建一個還原點，以防萬一（甚至可能備份註冊表，但這可能過於謹慎）。

單擊開始按鈕，運行
"C:\Program Files\Microsoft Office\Office14\GRAPH.EXE" /REGSERVER

重新安裝Access，並確保它是最新的最新與所有的Windows更新是另一種可能性。

來源

2013-06-28 19:46:06

用VBA類型不匹配，而其他計算機能

回答

相關問題