Completar comando em macro mesclar e centralizar e fechar janela de estilos e formatação

[LeandroVieira]

Olá pessoal!
Estou com uma planilha com algumas macros gravadas e acionadas por botões.
No final de cada uma delas surge as janelas:

O que devo acrescentar nessas linhas de códigos para sempre marcar como Não, sem precisar fazer isso manualmente:

rem Mesclar e centralizar
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "MoveContents"
args6(0).Value = true
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, args6())

Em outra surge:

rem Sair da caixa de estilo
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "DesignerDialog"
args11(0).Value = false

dispatcher.executeDispatch(document, ".uno:DesignerDialog", "", 0, args11())

[schiavinatto]

Com ref. a pergunta 1: A pergunta “Deseja mover …” só é feita se há dados em mais que uma célula, por exemplo células A1:A2 quando agrupar se houver dados em ambas ou só em A2, será feita a pergunta; se agrupar é só houver dados na célula inicial da área (a1) não sera feita a pergunta. Obs: célula sem dados, é informação deletada e não digitada “espaço”. Obs2: quando responde não as informações, as células/dados estão preservadas abaixo da agrupada.

[LeandroVieira]

Apenas uma célula contém informação, sendo ela a primeira da sequência, mesmo assim me retorna a pergunta; somente quando a célula abaixo está vazia é que não exibi a pergunta.
Com isso, tive que acrescentar um código para que inserisse uma célula abaixo delas antes de mesclar e outro para excluí-la depois de ter mesclado.
Daí não exibi mais a primeira janela de pergunta.

[schiavinatto]

Ola @LeandroVieira, só para atualização: O problema da célula abaixo ter informação foi resolvido, mesmo tendo, a pergunta não é feita. (Teste em LibO 6.2.2.1)

[LeandroVieira]

Ótima informação @Gilberto Schiavinatto!

[LeandroVieira]

Para a resposta desta questão irei unificar as informações:

Na primeira macro cravada com o Mesclar e Centraliza, a janela de pergunta sempre será exibida nas seguintes situações:

1. Quando houver dados em mais de uma
   célula no intervalo selecionado;
2. Dados a partir da segunda célula no
   intervalo de seleção, exemplo:
   A1:C1 contém dados em B1;
3. Em qualquer situação tendo dados na
   célula abaixo da seleção.

Não exibirá a pergunta somente quando a célula abaixo estiver vazia e não seguirem o item 1 e 2 acima.

Como dito no comentário, foi necessário acrescentar um código para inserir uma linha abaixo do intervalo antes de mesclar e outro para excluí-la após o código de Mesclar e Centraliza.

Segunda janela (Estilo)

O problema está na hora de fechar a janela, pois quando se grava a macro abrindo e fechando com F11 ou ícone de Estilo é escrito com erro:

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

Neste caso era só excluir rem para “comentários” da segunda linha, e a sequência ficaria assim:

rem pre-visualização final de estilo
dispatcher.executeDispatch(document, ".uno:StyleEndPreview", "", 0, Array())

rem Sair da caixa de estilo
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "DesignerDialog"
args11(0).Value = false

dispatcher.executeDispatch(document, ".uno:DesignerDialog", "", 0, args11())

Agradeço aos comentários!

[Grafeno]

Muito bom! Parabéns pela solução. Acrescentei a tag “Resolvida” à sua questão para facilitar as futuras pesquisas, e para também maior organização do AskLibO.

[LeandroVieira]

Claro, obrigado!