it is easy enough to do, but have to make sure the chart is selected properly
Code:
if the typename(selection)= "ChartArea" then 
  set chrtobj = selection
  else 
  msgbox "chart not selected correctly"
end if