Excel VSTO AddIn - 選択からチャートオブジェクトを取得

Question

Excel用のVSTOアドインで、グラフオブジェクト（Excel.Chartのようなもの）にユーザーの選択をキャストする方法を教えてください。

（Excelで選択したチャートオブジェクトを持ちながら）私はこのようなものを使用しようとしてきた：

Dim chart as Excel.Chart = CType(Globals.ThisAddIn.Application.Selection, Excel.Chart)

しかし、これはInvalidCastExceptionをスローします。

ユーザーがグラフを選択してから、選択したグラフをVSTOアドインで変更できるようにする方法については、ドキュメントを見つけることができないようです。

Answer 1

コードでは、選択に実際にChartオブジェクトが含まれているかどうかを確認してからChartを取得する必要があります。 VB.NETを使用する場合、String型を返すTypeNameメソッドを使用して、文字列を評価します。

Public Function IsSelectionChart() as Boolean 
    Dim cht As Excel.Chart 
    Dim sSelectionType As String 
    Dim xlApp As Excel.Application = Globals.ThisAddIn.Application 

    sSelectionType = TypeName(xlApp.Selection) 
    Select Case sSelectionType 
     Case "ChartArea", "PlotArea", "Legend" 
      cht = xlApp.Selection.Parent 
      Debug.Print(cht.Name) 
     Case "Series" 
      cht = xlApp.Selection.Parent.Parent 
      Debug.Print(cht.Name) 
     Case "Axis" 'Parent is Worksheet 
      Debug.Print("Can't determine the chart from an Axis") 
     Case Else 
      Debug.Print("Not a chart-related object") 
    End Select 

    If Not cht Is Nothing Then 
     Return True 
    Else 
     Return False 
    End If 
End Function