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:
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?
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áficooGrafico = getGrafico2()
If Not IsNull( oGrafico ) Then
'El nuevo rango de datosWith oDir
.Sheet = oHojaActiva.getRangeAddress.Sheet
.StartColumn = 0
.EndColumn = 1
.StartRow = 0
.EndRow = 10
End With
mRangos(0) = oDir
'Establecemos el nuevo rangooGrafico.setRanges( mRangos )
ElseMe 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
0