charttype, convert numbers to constants

[RodP]

Hi All,

I have a chart object in which I want to get it's charttype. Currently it returns a number and I'd like to know how to convert it to it's constant's name. Do i need to make up an array mayself to do this as i can't seem to find a ...charttype.name or ....charttype.label

For example the xlDoughnutExploded (pie chart) I have is returning 80 in the message box.

private sub chart-it()

Dim cht as object
For Each cht In ActiveSheet.ChartObjects
msgbox cht.chart.charttype
next

end sub

Hope someone can help

Many thanks in advance

RodP

 

[combo]

Either copy values and corresponding descriptions from object browser into your own function or use tybelib info object (see thread707-1312283 for instance).

combo