Pergunte aqui
1

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

perguntadas 2016-06-30 00:21:32 +0200

imagem do gravatar de Leandro Vieira

updated 2016-07-31 15:11:20 +0200

imagem do gravatar de Grafeno

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

Descrição da imagem

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:

Descrição da imagem

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())
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

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.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2016-07-14 01:49:26 +0200 )editar

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.

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2016-07-20 17:04:24 +0200 )editar

1 Resposta

2

respondidas 2016-07-29 16:52:59 +0200

imagem do gravatar de Leandro Vieira

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!

editar assinalar como ofensivo Excluir Link mais

Comentários

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.

imagem do gravatar de GrafenoGrafeno ( 2016-07-31 15:10:32 +0200 )editar
1

Claro, obrigado!

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2016-07-31 18:56:27 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2016-06-30 00:21:32 +0200

Lidas: 100 vezes

Última atualização: Jul 29 '16