Re: [pt-br-usuarios] macros com referência relativa no Calc

Uma macro exemplo:

/sub CortaCola //
//rem   ==> partindo da célula ativa . ---------------------------//
//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(1) as new com.sun.star.beans.PropertyValue//
//args1(0).Name = "By"//
//args1(0).Value = 1//
//args1(1).Name = "Sel"//
//args1(1).Value = false//
//dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())//
//dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())//
//dispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array())//
//rem 
----------------------------------------------------------------------//
//dim args4(1) as new com.sun.star.beans.PropertyValue//
//args4(0).Name = "By"//
//args4(0).Value = 1//
//args4(1).Name = "Sel"//
//args4(1).Value = false//
//dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args4())//
//dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args4())//
//dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args4())//
//dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())//
//rem 
----------------------------------------------------------------------//
//dim args8(1) as new com.sun.star.beans.PropertyValue//
//args8(0).Name = "By"//
//args8(0).Value = 1//
//args8(1).Name = "Sel"//
//args8(1).Value = false//
//dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args8())//
//dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, 
Array())//
//rem 
----------------------------------------------------------------------//
//dim args10(1) as new com.sun.star.beans.PropertyValue//
//args10(0).Name = "By"//
//args10(0).Value = 1//
//args10(1).Name = "Sel"//
//args10(1).Value = false//
//dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args10())//
//dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args10())//
//dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args10())//
//dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, 
Array())//
//rem 
----------------------------------------------------------------------//
//dim args14(1) as new com.sun.star.beans.PropertyValue//
//args14(0).Name = "By"//
//args14(0).Value = 1//
//args14(1).Name = "Sel"//
//args14(1).Value = false//
//dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args14())//
//dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args14())//
//end sub/


Em 22/04/2018 12:12, Antonio Silva escreveu:
> Olá pessoal
>
> Estou tentando fazer uma macro bem simples no Calc.
>
> A partir de uma célula ativa movo o duas células para baixo, recorto, movo
> uma célula para o lado direito e duas células para cima, colo, movo uma
> célula para direira, desmarco Mesclar, movo três células para esquerda,
> desmarco Mesclar, movo uma célula para direita e uma para baixo.
>
> No entanto isso deve ser feito de forma relativa. Não em uma célula
> determinada, mas a partir de uma célula ativa.
>
> Fiz muito esse tipo de macro no Excel mas há um bom tempo só uso o
> LibreOffice no Linux. Esta é a primeira vez que necessito fazer uma macro
> no Calc.
>
> Agradeço qualquer sugestão.
>
> Abraços e boa semana para todos.


--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para usuarios+unsubscribe@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: https://listarchives.libreoffice.org/pt-br/usuarios/