Criar um botão Limpar no Libre Office

BryanSmith
(usa Outra)

Enviado em 13/07/2016 - 12:28h

Olá, precisava criar um botão (macro) no Libre para limpar certas células ex.: (A1:C10).
Alguém pode me ajudar
Agradeço desde já.

Mauriciodez
(usa Debian)

Enviado em 13/07/2016 - 13:38h

em qual parte vc está tendo problema ???

Criar a macro
Criar o botão
atribuir a macro ao botão



___________________________________________________________________________________________
" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"

BryanSmith
(usa Outra)

Enviado em 13/07/2016 - 15:04h

Na verdade, não consegui achar uma forma de inserir um botão como no Excel, então criei uma forma mesmo e pretendo atribuir a macro a essa forma para que ela funcione como um botão, estou tendo mesmo dificuldade em criar a macro em si.

Mauriciodez
(usa Debian)

Enviado em 13/07/2016 - 17:03h

velho ... nunca fiz uma macro no calc não ... no excel seria moleza

Range("A1:C10").Value = "" 

no calc a maneira q encontrei de fazer isso sem escrever um código vba q ainda não conheço é clicar em ferramentas/macros/gravar macro ... aí vc seleciona as células, deleta e para a gravação ... depois atribui a macro à forma !!!

como o botão de gravar macro do excel !!!

o código VBA q a gravação gerou

REM  *****  BASIC  *****





sub Main

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:$C$10"



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



rem ----------------------------------------------------------------------

dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array())





end sub 

___________________________________________________________________________________________
" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"

BryanSmith
(usa Outra)

Enviado em 13/07/2016 - 23:23h

Vou tentar fazer isso que vc me falou, gravar a macro e já respondo aqui se deu certo ou não, mas fala sério né, poderia haver uma forma de inserir um botão de comando ou algo assim, mas paciência né!