Pergunte aqui
0

Ajustar tamanho da coluna

perguntadas 2019-06-03 15:54:22 +0200

imagem do gravatar de Marcelo Caldas

updated 2019-06-03 18:06:01 +0200

Bom dia.

Gostaria de ajustar o tamanho da coluna via macro. Preciso ajustar uma coluna de acordo com o tamanho do texto dentro dela. É dar o duplo clique na divisão das colunas. Pela gravação de macro não da nada.

Obrigado

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Seria isso:

sub Main
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ColumnWidth"
args1(0).Value = 3000
dispatcher.executeDispatch(document, ".uno:ColumnWidth", "", 0, args1())
end sub
imagem do gravatar de Ronaldo EliasRonaldo Elias ( 2019-06-03 17:23:58 +0200 )editar

1 Resposta

1

respondidas 2019-06-03 17:32:46 +0200

updated 2019-06-03 17:34:49 +0200

Selecione a célula ou a área e acione a macro...

'================================================|
sub ColunasAjustarLarguraIdeal
' da area selecionada
'================================================/
Dim document, dispatcher As Object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "aExtraWidth"
args1(0).Value = 0
dispatcher.executeDispatch(document, ".uno:SetOptimalColumnWidth", "", 0, args1())
end sub

Para facilitar, poderá liga-la a Atalho de teclado.


ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais

Comentários

Perfeito. Obrigado.

imagem do gravatar de Marcelo CaldasMarcelo Caldas ( 2019-06-03 18:00:02 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-06-03 15:54:22 +0200

Lidas: 14 vezes

Última atualização: Jun 03