Hi Tom ,
Since this question is posted in the VBA section , I assume you are asking about the ChartObject object.
The following 2 lines are sufficient :
Dim chto As ChartObject
Set chto = Me.ChartObjects(1)
In case you have more than one embedded chart in the worksheet , you can use the name of the chart , as in :
Set chto = Me.ChartObjects("Chart 1")
Once you have done this , you can query the chartobject by , for example , the following :
?chto.Name
?chto.Chart.Name
?chto.Chart.ChartType
Narayan