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
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
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
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 na pergunta ou abaixo. Grato.
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.
Perfeito. Obrigado.