Change chart type

[kabilliu]

Hi all,
I have a workbook that includes a pie chart with name “graph1” on a worksheet. I ask from a user to change the chart type to columns. I need a code that checks if the user makes the right changes or not. I tried the following code without success:

Dim xlap As New Excel.Application 'a reference to excel
With xlap.Charts(“graph1”).Add '<---?? 
If xlap.ActiveChart.ChartType = xlColumnClustered Then 
msgbox “right answer” 
End If 
End With

Please Help!
Thanks in advance