我可以將Microsoft.Office.Interop.Excel.Chart對象轉換爲Microsoft.Office.Tools.Excel.Chart對象嗎？

Question

基本上我已經在VB.NET 2010中編寫了一個Excel 2007項目，它允許您創建具有相當數量交互性的圖表。我希望用戶能夠保存並重新打開此工作簿，並且在任何已創建的圖表中仍然具有該交互功能，因此他們不必重新創建它們。

當我創建圖表時，我使用Sheet1.Controls.AddChart（...），它返回一個Microsoft.Office.Tools.Excel.Chart，我可以使用它處理事件等。但是，當我重新打開該文件並查看Sheet1.Controls集合時，沒有Chart對象。當我需要工具圖表時，通過Sheet1.ChartObjects.Chart訪問圖表會給我Interop圖表。

有沒有更好的方法來做到這一點？我應該從一開始就使用Interop圖表嗎？

Answer 1

根據MSDN article，您可以使用HasVstoObject和GetVstoObject方法來轉換native object into a host control.雖然文檔沒有具體提及圖表對象。

Answer 2

保羅，如果我沒有解決您的問題，我會提前道歉。直到現在，我還沒有意識到有兩種類型的圖表，我有興趣瞭解與他們的問題。無論如何，經過一番混戰之後，我能夠創建一個圖表，命名它，讓它持續下去，並對事件做出反應。它不依賴於互操作的圖表，但：

Public Class ThisWorkbook 
    Dim clsChart As cChart 

    Private Sub ThisWorkbook_Startup() Handles Me.Startup 
     Dim coChartObj As Microsoft.Office.Interop.Excel.ChartObject 
     Dim chtMyChart As Microsoft.Office.Interop.Excel.Chart 
     Dim i As Int32 

     With Globals.Sheet1 
      For i = 1 To .ChartObjects.count 
       If .ChartObjects(i).Name = "MyChart" Then 
        chtMyChart = .ChartObjects(i).chart 
        Exit For 
       End If 
      Next i 
      If chtMyChart Is Nothing Then 
       chtMyChart = .Shapes.AddChart.Chart 
       chtMyChart.SetSourceData(.Range("A1:B2")) 
       coChartObj = chtMyChart.Parent 
       coChartObj.Name = "MyChart" 
      End If 
      clsChart = New cChart 
      clsChart.chtChart = chtMyChart 
     End With 
    End Sub 
End Class 

Public Class cChart 
    Public WithEvents chtChart As Microsoft.Office.Interop.Excel.Chart 

    Private Sub chtChart_Resize() Handles chtChart.Resize 
     MessageBox.Show("resize") 
    End Sub 
End Class