问Excel VSTO AddIn -从选择中获取图表对象

EN

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