Como ocultar diversas colunas

[risiferraz]

Gostaria de selecionar todas as colunas a direita a partir da coluna “I” para ocultá-las ou excluí-las

[schiavinatto]

Manualmente seria: Clique na letra da coluna, no caso “I”, Ctrl+Shift+Seta para esquerda. e clique direito novamente no titulo da das colunas selecionadas e selecione Ocultar.

Para mostrar selecione a planilha inteira (canto superior esquredo) e clique direito e Mostrar colunas

Via Macro seria: Clique na letra da coluna, e acione a macro.

'================================================|
sub OcultarColunasAnteriores
'================================================|
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 = "By"
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoLeftToStartOfDataSel", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array())
end Sub

Estando em qualquer célula acione a macro para mostrar todas as colunas,

'======================================================================
sub MostrarColunasOcultasTodas
'======================================================================
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A:$AMJ"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:ShowColumn", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args2())
end sub