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

Não manjo muito de macros, mas ao gravar um teste eu vi que ele gera a
movimentação de forma relativa usando GoDown ou GoRight, por exmeplo.
Somente ao mesclar ele usa um intervalo absoluto. Veja o que ele gerou (eu
apenas digitei uns valores como 123 e 456 e depois mesclei duas celulas). O
pessoal aqui vai dar mais ideias.

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 = "StringName"
args1(0).Value = "123"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "StringName"
args3(0).Value = "456"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args3())

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:GoDown", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "StringName"
args5(0).Value = "789"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(1) as new com.sun.star.beans.PropertyValue
args6(0).Name = "By"
args6(0).Value = 1
args6(1).Name = "Sel"
args6(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "StringName"
args7(0).Value = "890"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args7())

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())

rem ----------------------------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$D$6:$E$6"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args9())

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

end sub


Em 22 de abril de 2018 12:12, Antonio Silva <aolinto.lst@gmail.com>
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.
>
> --
> Antônio Olinto
> São Paulo, Brasil
>
> --
> 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/



-- 
/*
*Prof. Gilvan Vilarim*
Instituto Federal de Educação, Ciência e Tecnologia do Rio de Janeiro - IFRJ
Federal Institute of Education, Science and Technology of Rio de Janeiro
http://www.gilvanvilarim.com.br/
*/

-- 
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/