Excel Select Chart Index

[jhliang]

I have the following code:

Sub GetTLineEq()
  Dim chrtobj As ChartObject
  Dim chrt As Chart
  Dim srs As Series
  Dim tline As trendline
  Dim dlbl As DataLabel
  Dim str As String

  With ActiveSheet
    Set chrtobj = ActiveSheet.ChartObjects(1)
    Set chrt = chrtobj.Chart
    Set srs = chrt.SeriesCollection(1)
    Set tline = srs.Trendlines(1)
    Set dlbl = tline.DataLabel
    str = dlbl.Text
    .Range(Selection.Address).Value = str
  End With
End Sub

I would like the Macro to work with selected chart instead of ChartObjects(1). I have many charts in the spreadsheet. Many thanks.

[westconn1]

it is easy enough to do, but have to make sure the chart is selected properly

if the typename(selection)= "ChartArea" then 
  set chrtobj = selection
  else 
  msgbox "chart not selected correctly"
end if