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
[RESUELTO] Renombrar página cogiendo el valor de una celda
[RESUELTO] Renombrar página cogiendo el valor de una celda
Última edición por oggi el Lun Oct 16, 2017 11:16 am, editado 3 veces en total.
OpenOffice5.4.2.2 en Windows 7
Re: Macro para renombrar página cogiendo el valor de una cel
Hola...
Creo recordar que tu pregunta ya se ha respondido... ¿ya realizaste una búsqueda?
Saludos
Creo recordar que tu pregunta ya se ha respondido... ¿ya realizaste una búsqueda?
Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Re: Macro para renombrar página cogiendo el valor de una cel
Buenas,
Si pero soy nuevo en esto y no he conseguido que funcione
Si pero soy nuevo en esto y no he conseguido que funcione
OpenOffice5.4.2.2 en Windows 7
Re: Macro para renombrar página cogiendo el valor de una cel
Muestranos lo que has intentado para guiarte...
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Re: Macro para renombrar página cogiendo el valor de una cel
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
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
OpenOffice5.4.2.2 en Windows 7
Re: Macro para renombrar página cogiendo el valor de una cel
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
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
OpenOffice5.4.2.2 en Windows 7