[RESUELTO] Renombrar página cogiendo el valor de una celda

[oggi]

Buenas,

quiero generar una macro en la cual el nombre de la página se actualice automáticamente cogiendo el nuevo nombre de una celda particular de la propia página.
alguien me puede ayudar?
gracias

[mauricio]

Hola...

Creo recordar que tu pregunta ya se ha respondido... ¿ya realizaste una búsqueda?

Saludos

[oggi]

Buenas,
Si pero soy nuevo en esto y no he conseguido que funcione

[mauricio]

Muestranos lo que has intentado para guiarte...

[oggi]

Hola,
he rastreado los temas, y he probado el correspondiente a "nombre de hoja en una celda", pero si mal no lo he entendido, las funciones indicadas me extraen el nombre de la hoja y me escriben en una celda.
yo justamente quiero lo contrario: que el nombre esté en una celda y al ejecutar una macro cambie el nombre de la hoja según el valor de dicha celda
con mis conocimientos "avanzados" he grabado la siguiente macro:


sub nombrehoja1
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Name"
args3(0).Value = "NombreHo"

dispatcher.executeDispatch(document, ".uno:RenameTable", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$A$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())


end sub

que quiero es que me se renombre la página con el mombre indicado en la casilla A1
slds

[oggi]

Buenas,

he consultado en otro foro y he encontrado la solución

Sub nombrehoja2

Dim oSheet
Dim oCell


oSheet = ThisComponent.CurrentController.ActiveSheet
oCell = oSheet.getCellRangeByName("A1")
oSheet.Name = oCell.String


End Sub

Gracias a tod@s