我可以将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