How to... how to get a chart type in an existing chart

[xconeis2]

Hello:

I have a spreedsheet with a charts, i need to now what type of chatrs is it... whit a macro.

I have this macros but it's not correct:
Sub oHojas_1
Dim oDoc As Object
Dim oHoja As Object
Dim oGrafico As Object
Dim oGrafico2 As Object
Dim oValor As String

oDoc = StarDesktop.CurrentComponent
oHoja = oDoc.Sheets(0)
oGrafico = oHoja.Charts
oGrafico2 = oGrafico.getByIndex(0)
oValor = oGrafico.getDiagramType(oGrafico2)
MsgBox oValor



end sub

[ms777]

Hi,

the below code works in OO 3.1 for a bar chart with two data series

Good luck,

ms777