OpenOffice - Problemas con SetRanges

   
Vista:

Problemas con SetRanges

Publicado por J. González (2 intervenciones) el 06/12/2013 17:56:05
Amigos:

Al ejecutar la siguiente macro copiada de la página 358 del libro "Aprendiendo OOo Basic" de Mauricio Baeza Servín:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Graficando11()
Dim oGrafico As Object
Dim oHojaActiva As Object
Dim mRangos(0)
Dim oDir As New com.sun.star.table.CellRangeAddress
oHojaActiva = ThisComponent.getCurrentController.getActiveSheet()
'Accedemos al gráfico
oGrafico = getGrafico2()
If Not IsNull( oGrafico ) Then
'El nuevo rango de datos
With oDir
.Sheet = oHojaActiva.getRangeAddress.Sheet
.StartColumn = 0
.EndColumn = 1
.StartRow = 0
.EndRow = 10
End With
mRangos(0) = oDir
'Establecemos el nuevo rango
oGrafico.setRanges( mRangos )
Else

Me sale el siguiente mensaje de error: "Propiedad o método no encontrado: SetRanges"

¿Alguien sería tan amable de indicarme por qué no reconoce a SetRanges?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problemas con SetRanges

Publicado por visto (1 intervención) el 09/12/2013 20:50:46
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar